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IDENTIFICATION 


PRODUCT CODE: AC-8872G-MC 

PRODUCT NAME: CZKWAGO KW11-L LINE FREQUENCY CLOCK TEST 
PRODUCT DATE: 1-MAY-78 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO C'ANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1970, 1978 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SEG 0001 


2.0 


GENERAL PROGRAM INFORMATION 


1.1 ABSTRACT 
THIS PROGRAM TESTS THE KW11L LINE FREQUENCY CLOCK. IT 
VALIDATES PROPER OPERATION UNDER BOTH INTERRUPT AND 
NON-INTERRUPT MODES. 


Ut - SYSTEM REQUIREMENTS 
THIS PROGRAM IS DESIGNED TO RUN ON ANY PDP~-11 WITH 4K 
OF MEMORY AND A KW11 LINE FREQUENCY CLOCK. 


Vom DEVICE ADDRESSES 


THE DIAGNOSTIC ASSUMES THE LINE CLOCK ADDRESS IS 
177546. VARIOUS TESTS IN THE DIAGNOSTIC ENSURE THAT 
THE LINE CLOCK IS NOT AFFECTED WHEN THE PAPER TAPE 
PUNCH (ADDRESS 177556) AND TELETYPE (ADDRESS 177566) 
ARE ACCESSED. THEREFORE, AN OCCASIONAL ‘‘a’’ MAY BE 
OUTPUT AT THE TELETYPE AND A CHARACTER MAY BE PUNCHED 
AT THE PAPER TAPE PUNCH. THESE ARE NOT ERRORS. 


OPPERATING INSTRUCTIONS 


e.1 LOADING 
PROCEDURE fOR NORMAL BINARY TAPES SHOULD BE FOLLOWED 
A. ABSOLUTE LOADER PROGRAM MUST BE IN MEMORY 
B. PLACE THE BINARY TAPE IN THE PAPER TAPE READER 
C. LOAD ADDRESS 17500 
D. DEPRESS START (TAPE SHOULD READ IN) 


ee STARTING 
PROGRAM STARTING ADDRESS IS 000200 
A. LOAD ADDRESS 000200 | 
B. SELECT SWITCH REGISTER OPTIONS (SEE SECTION 2.3) 


NOTE: _IF THE PROCESSOR DOES NOT HAVE A 
HARDWARE SWITCH REGISTER, LOCATION # 176 SHOULD 
BE LOADED WITH THE APPROPRIATE SWITCH SETTINGS 
AFTER THE DIAGNOSTIC HAS BEEN LOADED INTO MEMORY. 
THE PROGRAM IS THEN STARTED AT ADDRESS 200. 


C. DEPRESS START (PROGRAM SHOULD START RUNNING) 


YE SWITCH REGISTER OPTIONS 
HERE IS A LIST OF CONSOLE SWITCHES AND THEIR EFFECT ON 
THE PROGRAM... 
SWITCH ACTION IF SET 
15 HALT ON ERROR 
14 LOOP ON CURRENTLY EXECUTING TEST 
13 INHIBIT ERROR PRINTOUTS 
12 (UNUSED) 
11 INHIBIT ITERATIONS 
10 BELL ON ERROR 
9 LOOP ON ERROR 
8 LOOP ON TEST SPECIFIED IN SWR<7:0> 
7-0 # OF TEST TO LOOP ON (ONLY WHEN SWR8 = 1) 


2.4 EXECUTION TIMFS 


SEQ 0002 


3.0 


5.0 


D 1 
EXECUTION TIME FOR THIS PROGRAM IS DEPENDENT ON THE 
MODEL OF PDP-11 IT IS BEING RUN ON. FOR A PDP-11/40 
ABOUT 5 SECONDS IS NECESSARY TO DO 1 PASS OF THE PROGRAM 
WITHOUT ITERATIONS. 


ERROR INFORMATION 


3.1 STANDARD ERROR REPORTING PROCEDURES 
ERROR PRINTOUTS CONSIST OF FROM 4 TO 8 COLUMNS OF DATA, A 
DATA HEADER, AND POSSIBLY A SHORT ERROR MESSAGE DESCRIBING 
THE ERROR. FOR EXAMPLE... 


CLOCK FAILED TO INTERRUPT 

PC PS SP TEST# LKS 

002262 000344 000764 000007 000300 

THE FIRST 4 COLUMNS OF OF THE ERROR MESSAGE ALWAYS SHOW THE 
CONTENTS OF THE PC, PS, SP, AND THE TEST NUMBER. MORE COLUMNS 


a ARE ADDED WHERE THEY MIGHT BE RELAVENT TO A PARTICULAR 
OR. 


+ Ps UNEXPECTED TRAP ERROR REPORTING 
AN UNEXPECTED TRAP TO ADDRESS 4 CAUSES THE FOLLOWING 
MESSAGE TO BE PRINTED OUT... 


TRAPPED TO LOC 4 FROM LOCATION “'XXXXXX* 
RESTARTING PROGRAM 


IN THE ACTUAL MESSAGE THE ‘'XXXXXX"* IS REPLACED BY THE PC 
ADDRESS PUSHED ONTO THE STACK WHEN THE UNEXPECTED TRAP 
OCCURS. THE PROGRAM THEN TRYS TO RESTART ITSELF 
DESPITE SWITCH REGISTER SETTINGS. 

3.3 POWER FAIL 
IF A POWER FAIL CONDITION IS DETECTED THE FOLLOWING MESSAGE 
IS PRINTED... 
POWER 
AFTER PRINTING OUT THE MESSAGE THE PROGRAM TRYS TO 
RESTART ITSELF. 

DEVICE INFORMATION 

5.1 GENERAL INFORMATION 
THE LINE CLOCK INTERRUPT VECTOR ADDRESS IS 100 
THE LINE CLOCK PRIORITY LEVEL IS BR6 

» REGISTERS 


LINE CLOCK STATUS REGISTER (LKS) 777546 


BIT6 If SET MONITOR=1 CAUSES AN INTERRUPT 


SEQ 0003 


a. 
BIT? MONITOR BIT. SET BY CLOCK, CLEARED BY USER 
SEQ 0004 


7.0 LISTING 
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=O ODONKVLFWNM-ODO@OnNOAUVSWro 


167400 
000000 


001100 


177776 
177774 
177772 


177570 
177570 


000000 


000007 


MACY11 30A(1052) 19-APR- 


-ABS 
-ENABL AMA 
LIST fF 


-NLIST MC, MD, CND 
$SWR=167400 
STN=0 

ABS 


- ENABL 
TITLE CZKWA-G LINE FREQUENCY CLOCK PROGRAM 


s*COPYRIGHT (C) 1970,1977 
:*DIGITAL EQUIPMENT CORP. 
: es MASS. 01754 


: PROGRAM BY J. COMEAU 


: STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
: *PACKAGE (MAINDEC-11-DZQAC-B1),AUG 29,1975. 
® 
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-SBTTL OPERATIONAL SWITCH SETTINGS 


»o 

:* SWITCH 
ee 
3% 15 
3% 14 
3* 13 
;* 11 
3* 10 
;* 9 
:* 8 
:* 7-0 


HALT ON ERROR 
LOOP ON TEST 


INHIBIT ERROR TYPEOUTS 
INHIBIT ITERATIONS 


BELL ON ERROR 
LOOP ON ERROR 


LOOP ON TEST IN SWR<7:0> 
#OF TEST TO LOOP ON IF SWR<8> IS SET 


.SBTTL BASIC DEFINITIONS 


cue tae OF THE STACK POINTER *** 1100 xxx, 


:;BASIC DEFINITION OF ERROR CALL 
:;BASIC DEFINITION OF SCOPE CALL 
:sPROCESSOR STATUS WORD 


>;STACK LIMIT REGISTER 

::PROGRAM INTERRUPT REQUEST REGISTER 
: HARDWARE SWITCH REGISTER 

> sHARDWARE DISPLAY REGISTER 


STACK= 

-EQUIV EMT,ERROR 
EQUIV I0T , SCOPE 
PS= 177776 
-EQUIV PS,PSW 
STKLMT= 177774 
PIRQ= 177772 
DSWR= 177570 
DDISP= 177570 


L REGISTER 


: *GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 ERA 


R1= 1 
R2= Z2 
R3= %3 
R4= 24 
R5= z5 
R6= 26 
R7= x7 
SP= 26 
PC= i7 


: GENERAL 
>: GENERAL 
: GENERAL 
3; GENERAL 
3; ;GENERAL 
> ; GENERAL 
7; GENERAL 


REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 


::STACK POINTER 
;;PROGRAM COUNTER 


SEQ 0005 


1 | 


G 
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CZKWAG.P11 10-APR-78 11:05 BASIC DEFINITIONS SEQ 0006 

57 s*PRIORITY LEVEL DEFINITIONS 

58 000000 PRO= 0 ::PRIORITY LEVEL 0 
59 000040 PRi= 40 ::PRIORITY LEVEL 1 
60 000100 PR2= 100 ::PRIORITY LEVEL 2 
61 000140 PR3= 140 ;z:PRIORITY LEVEL 3 
62 000200 PR4= 200 >: PRIORITY LEVEL 4 
63 000240 PR5= 240 ;;PRIORITY LEVEL 5 
64 000300 PR6= 300 : PRIORITY LEVEL 6 
e 000340 PR7= 340 :;PRIORITY LEVEL 7 
6 

67 :*'"SWITCH REGISTER’ SWITCH DEFINITIONS 

68 100000 SWi5= 100000 

69 040000 SW14= 40000 

70 020000 SW13= 20000 

71 010000 SWi2= 10000 

72 004000 SWil= 4000 

73 002000 SW1i0= 2000 

74 001000 SWwO9= 1000 

75 000400 SWwO8= 400 

76 000200 SwO7= 200 

77 000100 SWO6= £100 

78 000040 SWwO5= 40 

79 000020 SWO4= 20 

80 000010 SWwO3= 10 

81 000004 SWwO2= 4 

82 000002 suwol= 2 

83 000001 SwoO= 1 

84 -EQUIV SWO09,SW9 

85 -EQUIV SwW08,SW8 

86 -EQUIV SWO7,SW7 

87 EQUIV SW06,SW6 

88 -EQUIV SWO5,SW5 

89 -EQUIV SW04,SW4 

90 EQUIV S$w03,SW3 

91 EQUIV SWO2,SW2 

92 EQUIV SWO1,SW1 

a -EQUIV SW00,SWO 

95 :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
96 100000 BIT15= 10000 

97 040000 BIT14= 40000 

98 020000 BIT13= 20000 

99 010000 BITi2= 10000 
100 004000 BIT11= 4000 
101 002000 BIT10= 2000 
102 001000 BITO9= 1000 
103 000400 BITO8= 400 
104 000200 BITO7= 200 
105 000100 BIT06= 100 
106 000040 BITO5= 40 
107 000020 BIT04= 20 
108 000010 BITO3= 10 
109 000004 BITO2= 4 
110 000002 BITO1= 2 

1117 000001 BITOO= 1 

112 -EQUIV BIT09,BIT9I 
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WAIANAE PO PO PO MO PII PI DOP a Ss es ee 
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8 2) 8 ot oe =o 3 ww) oo oe 0 od = ow es 


AWA WANN 


141 


149 000174 
150 000176 


153 000200 


160 000046 
162 000052 


000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 


177546 
000240 


000774 
000776 


000000 


000174 
000000 
000000 


000137 


000204 
000046 


000204 


001400 
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-EQUIV BITC3,BIT8 
-EQUIV BITO7,BIT? 
-EQUIV BITO6,BIT6 
-EQUIV BITO5,BITS 
-EQUIV BIT04,BIT4 
-EQUIV BITO3.BIT3 
-EQUIV BITO2,BIT2 
-EQUIV BITO1,BIT1 
-EQUIV BITO00,BITO 


> *BASIC *‘CPU"’ TRAP VECTOR ADDRESSES 


ERRVEC= 4 3: TIME OUT AND OTHER ERRORS 

RESVEC= 10 > RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 es Mae | | 

TRIVEC= 14 >; TRACE TRAP 

BPTVEC= 14 ; BREAKPOINT TRAP (BPT) 

IOTVEC= 20 >: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
PWRVEC= 24 > POWER FAIL 

EMTVEC= 30 ssEMULATOR TRAP (EMT) **ERROR*«* 
TRAPVEC=34 ::''TRAP’’ TRAP 

TKVEC= 60 7: TTY KEYBOARD VECTOR 

TPVEC= 64 :: TTY PRINTER VECTOR 


PIRQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 
sMISCELANHUS EQUATES 

LKS=177546 

NOP=240 

BUF 2=774 

BUF 1=776 


-SBTTL TRAP CATCHER 


.=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘*.+2,HALT”’ 
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
; *LOCATION i achlasciaas 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 ::SOFTWARE DISPLAY REGISTER 
SWREG: WORD 0 : SSOFTWARE SWITCH REGISTER 


-SBTTL STARTING ADDRESS(ES) 
JMP @#KSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


FERRARA EATER ERA RATER RA AA ARAATAAA AAA AAA RAERAREAREEERARERERE 


-SBTTL ACT11 HOOKS 
; HOOKS ge pig BY ACT11 


até : SAVE PC 
SENDAD >31)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
“WORD 0 ::2)SET LOC.52 TO ZERO 

-=$SVPC :: RESTORE PC 
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212 


001100 


001156 
001160 


001162 
001164 


001222 


001100 
000000 


000000 
000000 


000000 
000000 
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tt t-te eee PRR RRR RRRRRRRRESREESE SELES EERE EEE SESS Raa 


- SBTTL 


:*THIS 
; *USED 


SCMTAG: 


SPASS: 


STSTNM: . 
SERFLG: 


SICNT: 


SLPADR: 
SLPERR: 
SERTTL: 
SITEMB: 
SERMAX: 
SERRPC: . 
SGDADR: 
SBDADR: 
SGDDAT: 
SBDDAT: . 


SWR: 


DISPLAY: 


STKS: 
STKB: 
STPS: 
STPB: 
SNULL: 


SFILLS: 
SFILLC: 
STPFLG: 
SREGAD: 


STIMES: 


COMMON TAGS 


.=1100 
. WORD 


SESCAPE :0 


oooo°o°oeo°coc-cCo°0°0co°o0°0c oO 


oo” 
ow 
— = 
ww 
wv 


™m 


Oooooeocoeooceooco ©o0O-NoO 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


::START OF COMMON TAGS 

:: CONTAINS PASS COUNT 

3: CONTAINS THE TEST NUMBER 

7: CONTAINS ERROR FLAG 

;: CONTAINS SUBTEST ITERATION COUNT 
;;CONTAINS SCOPE LOOP ADDRESS 

:; CONTAINS SCOPE RETURN FOR ERRORS 
;: CONTAINS TOTAL ERRORS DETECTED 
:: CONTAINS ITEM CONTROL BYTE 

>: CONTAINS MAX. ERRORS PER TEST 

;; CONTAINS PC OF LAST ERROR INSTRUCTION 
;: CONTAINS ADDRESS OF ‘GOOD’ DATA 
;:CONTAINS ADDRESS OF ‘BAD‘ DATA 
;: CONTAINS "GOOD’ DATA 

:: CONTAINS "BAD’ DATA 

7 ;RESERVED--NOT TO BE USED 


7 ADDRESS OF SWITCH REGISTER 
: ADDRESS OF DISPLAY REGISTER 
:: TTY KBD STATUS 
s: TTY KBD BUFFER 
sz TTY PRINTER STATUS REG. ADDRESS 
7: TTY PRINTER BUFFER REG. ADDRESS 
:;CONTAINS NULL CHARACTER FOR FILLS 
:;CONTAINS # OF FILLER CHARACTERS REQUIRED 
7: INSERT FILL CHARS. AFTER A “‘LINE FEED" 
::°"TERMINAL AVAILABLE’' FLAG (BIT<07>=0=YES) 
>: CONTAINS THE ADDRESS FROM 
:;WHICH (SREGO) WAS OBTAINED 
s: CONTAINS ((SREGAD) +0) 
;: CONTAINS (($REGAD) +2) 
>: CONTAINS (($REGAD) +4) 
>: CONTAINS ((S$REGAD) +6) 
7: CONTAINS (($REGAD) +10) 
:: CONTAINS ((SREGAD) +12) 
;; CONTAINS ((SREGAD) +14) 
: CONTAINS ((SREGAD) +16) 
: USER DEFINED 

R DEFINED 

R DEFINED 

R DEFINED 
;;USER DEFINED 

R DEFINED 

R DEFINED 

R DEFINED 

AX. NUMBER OF ITERATIONS 

: TESCAPE ON ERROR ADDRESS 


SEQ 0008 
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CZKWAG.P11 10-APR-78 11:05 COMMON TAGS SEQ 0009 
220 001224 177607 000377 $BELL: .ASCIZ oe >:CODE FOR BELL 
221 001230 077 SQUES: .ASCII ; ;QUESTION MARK 
222 001231 015 SCRLF: .ASCII 28 7: CARRIAGE RETURN 
223 001232 000012 SLF: -ASCIZ <12> :;LINE FEED 
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j 


001234 000000 


001236 
001236 
001240 
001242 
001244 


001246 
001250 
001252 
001254 


001256 
001260 
001262 
001264 


001266 
001270 
001272 
001274 


001276 
001300 
001302 
001304 


001306 
001310 
001312 
001314 


001316 
001320 
001322 
001324 


001326 
001330 
001332 


010462 
010543 
010624 
000000 


010642 
010674 
010746 
000000 


010762 
011055 
011126 
000000 


011142 
011241 
011376 
000000 


011414 
011465 
011536 
000000 


011552 
011610 
071662 
000000 


011676 
011765 
012044 
000000 


012062 
012136 
012222 


K 1 
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COMMON TAGS 


RARE RERARRBRARARRRRRRSA RRR SEREEEEESERSE SESE SEER RS SESE ESSE SEES SS 


WORD: 000000 
.SBTTL ERROR POINTER TABLE 
:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


: *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
; *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
;* EM ;;POINTS TO THE ERROR MESSAGE 
;* DH :;POINTS TO THE DATA HEADER 
* DT :;POINTS TO THE DATA 
:* DF ::POINTS TO THE DATA FORMAT 
SERRTB: 
EM LKS LKS ia 
DH1 : PC SP TEST# WAS S/B . 
; SERRPC $RECT, SREG6,SREGS.LKS,SGDDAT 
EM2 ¢ CLOCK FAILED TO INTERRUPT"’ 
DHe Bs! PS SP TEST# LKS 
.* * SERRPC -SREG7, SREG6,SREGS,LKS 
EMS :"CLOCK INTERRUPTED WHEN THE PROCESSOR PRIORITY WAS TOO HIGH" 
DH3 owe PS SP TEST# LKS 
° : SERRPC.SREG7, SREG6,SREGS,LKS 
EM4 > CLOCK GIVES UNEQUAL # OF PULSES OVER TWO EQUAL PERIODS OF TIME” 
DH4 ORC PS SP TEST# 1ST 2ND" 
Ae ; SERRPC ,SREG7, SREG6, SREGS,SREG1,SREGO 
EMS + LKS REGISTER RESPONDS TO ANOTHER ADDRESS” 
DH5 ‘PC PS SP TEST# ADDRESS" 
Ale ‘ SERRPC -$REG7, SREG6, S$REGS,, SGDADR 
EM6 iA NO SACK TIMEOUT HAS OCCURED" 
DH6 “io, PS SP TEST# LKS by 
_ :SERRPC,SREG7, SREG6,SREGS.LKS 
EM7 ‘oon CONDITION CODES WERE PUT ONTO STACK BY INTERRUPT" 
DH7 PS SP TEST# CC ct" 
_" SERRPC, SREG7, SREG6, SREGS .BUF1,$GDDAT 


EM10 ;‘‘WRONG PC PUT ONTO THE STACK BY AN INTERRUPT" 
ae a PS SP TEST# °' 
DT10 ; SERRPC ,SREG7, SREG6, SREGS BUF 2, SGDDAT 


SEQ 0010 


_ 
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CZKWAG.P11 10-APR-78 11:05 ERROR POINTER TABLE SEQ 0011 
280 001334 000000 0 
282 001336 012240 : EM11 | TRAPPED iRYING TO ACCESS LKS sreesten” 
283 001340 012316 DH11 (PC) (PS) (SP) —sSTESTA 
284 001342 012354 DT11  ; SERRPC, SREG7, SREG6, SREGS 
285 001344 000000 0 
286 
287 
288 ;STARTUP CODE 
289 001400 =1400 
290 001400 012706 001000 KSTART: MOV #1000,SP > INITIALIZE THE STACK SO WE CAN CALL THE TYPEOUT 
291 001404 005046 CLR = = (SP) I 
292 001406 013746 000034 MOV =—--34,=(SP) :;SAVE CURRENT TRAP VECTOR 
293 001412 012737 001422 000034 MOV #648, 34 :;SETUP NEW TRAP VECTOT 
294 001420 104400 TRAP :;PUSH OLD PSW AN PCON STACK 
295 001422 016666 000002 000006 64%: MOV  2(SP),6(SP) - 
296 001430 012716 001436 MOV —-#65$, (SP) ;;REPLACE OLD PC WITH NEW 
297 001434 000002 RTI ; RESTORE PSW 
298 001436 012637 000034 65$: MOV  (SP)+,34 ;;RESTORE OLD TRAP VECTOR 
299 001442 004737 006612 JSR PC, STYPE :PRINTOUT STARTUP MESSAGE 
300 001446 010322 3 STMES ADDRESS OF MESSAGE ‘'MAINDEC-11-DZKWA-F"’ 
301 001450 START: 
302 001450 012706 001100 MOV —s #SCMTAG,R6 ; FIRST LOCATION TO BE CLEARED 
303 001454 005026 CLR = (RO) + ;;CLEAR MEMORY LOCATION 
304 001456 022706 001126 CMP ss #SBDDAT..R6 : ; DONE? 
305 001462 001374 BNE .-6 ;;LOOP BACK IF NO 
306 001464 012706 001000 MOV = #1000.SP ;SETUP THE STACK POINTER 
307 001470 012737 006340 000020 MOV - #SSCOPE ,@#IOTVEC ::10T VECTOR FOR SCOPE ROUTINE 
308 001476 012737 000340 000022 MOV #340, a#10TVEC+2 ;:LEVEL 7 
309 001504 012737 007634 000030 MOV = #SERROR ,@#EMTVEC :sEMT VECTOR FOR ERROR ROUTINE 
310 001512 012737 000340 000032 MOV = #340 QMERTVEC+2 ; LEVEL 7 
311 001520 012737 010040 000034 HOV _—-#STRAP,@PTRAPVEC’ 7: TRAP VECTOR FOR TRAP CALLS 
312 001526 012737 000340 000036 MOV §- #340,a#TRAPVEC+2;LEVEL 7 
313 001534 012737 010074 000024 MOV BSPURDN.@APURVEC ; :POMER FAILURE VECTOR 
314 001542 012737 000340 000026 MOV #340, a#PURVEC+2 ; LEVEL 7 
315 001550 013737 006200 006172 MOV §- SENDCT,SEOPCT ;; SETUP END-OF-PROGRAM COUNTER 
316 001556 005037 001220 CLR ss STIMES >; INITIALIZE NUMBER OF ITERATIONS 
317 001562 005037 001222 CLR —s- SESCAPE :;CLEAR THE ESCAPE ON ERROR ADDRESS 
318 001566 112737 000001 001115 = $MOVB #1, SERMAX : ALLOW ONE ERROR PER TEST 
319 001574 012737 001574 001106 MOV = #. ,SLPADR ;:INITIALIZE THE LOOP ADDRESS FOR SCOPE 
320 001602 012737 001602 001110 — MOV —s-_- #. , SLPERR ;;SETUP THE ERROR LOOP ADDRESS 
321 001610 013746 000004 MOV = -@#4,, = (SP) SAVE ERROR VECTOR 
322 001614 013746 000006 MOV = a#6,- (SP) 
323 001620 012737 001634 000004 MOV =—s--#648,,4 ;;SET UP TIME OUT VECTOR 
324 001626 005777 177304 TST — a@SWR ;:TRY TO REFERENCE HARDWARE SUR 
325 001632 000407 BR 65$ :;BRANCH IF NO TIMEOUT TRAP OCCURS 
326 001634 012737 000176 001136 64$: MOV #SWREG,SWR ;;POINT TO SOFTWARE SWR 
327 001642 012737 000174 001140 MOV §- #DISPREG, DISPLAY ;;POINT TO SOFTWARE DISPLAY REG 
328 001650 022626 CMP = (SP), (SP)+ ;:RESTORE STACK 
329 001652 012637 000006 65$: MOV (SP)+,a#6 ;;RESTORE ERROR VECTOR 
330 001656 012637 000004 MOV =—s- (SP) +, a4 
331 001662 005737 000042 37 @ ;LOADED BY A MONITOR 
332 001666 001401 BEQ  —- T0001 ;BR IF NO 
333 001670 000005 RESET YES=-GENERATE AN INIT 
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001672 


001730 


001732 


001776 


002000 


002042 


002044 


002116 


000004 
012737 
012737 
012737 
012706 
005037 
000401 
104011 


000004 


104001 


000004 


104001 


aeaee 


104001 


CLOCK PROGRAM 


11:05 


001730 


177546 


006266 
000340 
001756 


000200 
000100 


006266 


002032 
177546 


006266 
000340 
002070 
000200 
177546 


177546 


000004 
000006 
001106 


000004 
000006 
001106 


001124 
177546 


000004 


001106 


000004 


001124 
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ERROR POINTER TABLE 


. SBTTL 
zLKS ACCESS TEST 
T0001: SCOP 

MOV 

MOV 

MOV 
ROOO1: MOV 
10001: CLR 

BR 
E0001: ERROR 11 
. SBTTL 

SCOPE 

MOV 

MOV 

MOV 
ROOO2: RESET 

MOV 

BIT 

BEQ 
E0002: ERROR 1 


1 
14:25 PAGE 9 


SEQ 0012 


TEST THAT THE LKS CAN BE REFERENCED WITHOUT A BUS ERROR 


#£0001,a84 


#340, 


ar6 
#R0001 - SLPADR 


#1000, 


SP 


;PREPARE FOR ADDRESSING THE LKS REGISTER. BAD HARDWARE 
;€OULD CAUSE A TRAP TO 4 

; TIGHTEN UP THE SCOPE LOOP A BIT IN CASE OF AN ERROR 

; SETUP THE STACK POINTER IN CASE OF AN ERROR 

JUST REFERENCE LKS. DONT WORRY IF IT DIDNT CLEAR YET 
fF ee TRAP IF WE REACH HERE. GO ON TO NEXT TEST 


: TRAPED TRYING TO ACCESS THE LKS REGISTER 


TEST THAT START CLEARS LINE CLOCK INTERRUPT ENABLE BIT 
A THAT START CLEARS LINE CLOCK INTERRUPT ENABLE BIT 


#TRAPO,a#4 


#340 


,a#6 
#R0002 , SLPADR 


#200, SGDDAT 
#100,LKS 
T0003 


; SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
:NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 
> SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 


sHAVE GOOD DATA INFO READY FOR TYPEOUT IN ¢ 
;TEST THE INTERRUPT ENABLE BIT 


sERROR, CLOCK INTERRUPT ENABLE NOT CLEARED BY INIT 


“SE OF AN ERR 


-SBTTL TEST THAT START SETS CLOCK FLAG 


sTEST THAT START SETS CLOCK FLAG 
T0003: PE 
#TRAPO, 284 


ROOO0S: 


E0003: 


Bm 
ERROR 1 


#340 


,a#6 
#200, SGDDAT 
#RO005 , SLPADR 


LKS 


T0004 


: SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 

>NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 

:HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 
> SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 

:SHOULD SET THE CLOCK FLAG 

sFIND OUT IF IT DID 

:GO ON TO THE NEXT TEST IF IT SET THE CLOCK FLAG 

sERROR, CLOCK FLAG NOT SET BY INIT 


~SBTTL TEST THAT CLOCK FLAG WILL SET AFTER SUFFICIENT PERIOD OF TIME (20 MS MIN) 
Rdg i" _ FLAG WILL SET AFTER SUFFICIENT PERIOD OF TIME (20 MS MIN) 


ROOO4: 


A0004: 


E0004: 


8 
ERROR 1 


#TRAPO,a#4 
#340 ,a#6 
#R0004 ,SLPADR 
#200, $GDDAT 


HAVE GOOD D 


>SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
;NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 
; SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 
ATA INFO READY FOR TYPEQUT IN CASE OF AN ERR 
CLEAR THE CLOCK FLAG 


;AND A TIMER LOCATION 
;1S CLOCK FLAG SET 


:NO, INCREMENT COUNT 0035 WAIT FOR SOMEMORE 
WAIT SUFFICIENT AMOUNT OF TIME FOR CLOCK 
ERROR, CLOCK FLAG FAILED TO SET 


CZKWA-G LINE FREQUENCY CLOCK PROGRAM 
CZKWAG.P11 





002120 


002226 


002230 


002342 


000004 
012737 
012737 
012737 
012737 
013746 
012746 
000002 


005037 
005003 
105737 
100404 
005203 
001373 
104001 
000410 


012737 
032737 
001001 
104001 


000004 
012737 
012737 
012737 
012737 
013746 
012746 
000002 


005037 
005003 
105737 
100404 
005203 
001373 
104001 
000412 


012737 
005037 
032737 
001401 
104001 


10-APR-78 11:05 


006266 
000340 
000100 
002164 
000340 
002164 


177546 
177546 


000100 
000100 


006266 
000340 
000000 
002274 
000340 
002274 


177546 
177546 


000100 
177546 
000100 


000004 
000006 
001124 
001106 


177546 
177546 


000004 
000006 
001124 
001106 


177546 
177546 


N 1 
MACY11 30A(1052) 19-APR-78 14:25 PAGE 10 


TEST THAT CLOCK FLAG WILL SET AFTER SUFFICIENT PERIOD OF TIME (20 MS MIN) 


SEQ 0013 


~SBTTL TEST THAT INTERRUPT ENABLE BIT MAY BE SET 


: TEST TH 
T0005: 


64$: 
ROOOS: 


A0005: 


E0005: 
80005: 


E1005: 


. SRTTL 


64$: 
ROOO6G: 


A0006: 


E0006: 
B0006: 


AT INTERRUPT ENABLE BIT 


#TRAPO ,a#4 
#340,a#6 
#100,SGDDAT 
#RO005 , SLPADR 
PR7,~(SP) 
#64$,-(SP) 


SCOPE 


ERROR 1 


T0006 


MAY BE SET 


:SETUP VECOR IN CASE OF UNFORSEEN PRCBLEMS 

;NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 

sHAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 
;SETUP LOOP BACK ADDRESS IN CASE OF ERROR 

;;PUT NEW PS ON STACK 

;;PUT NEW PC ON STACK 

;; POP NEW PC AND PS 


> INITIALIZE A COUNTER LOCATION 

1S THE CLOCK FLAG SET? 

IF SO, CONTINUE ON WITH THE TEST 

: IF NOT INCREMENT THE COUNTER LOCATION 

sAND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 

>CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 


;CLEAR CLOCK FLAG AND SET INTERRUPT ENABLE 
;1S INTERRUPT ENABLE SET? 


sERROR INTERRUPT ENABLE NOT SET 


TEST THAT INTERRUPT ENABLE BIT MAY BE CLEARED 
AY THAT INTERKUPT FNARLE BIT MAY BE CLEARED 


SCOPE 


BEQ 
E10006: ERROR 1 


#TRAPO, 284 


PR7,-(SP) 
#643 ,-(SP) 


LKS 
R53 
LKS 
B0006 
R3 
A0006 
T0007 


L 


#100,LKS 


10007 


#100,LKS 
KS 


; SETUP VECOR In CASE OF UNFORSEEN PROBLEMS 
;NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 


; INITIALIZE THE LOOPEACK ADDRESS IN CASE OF AN ERROR 
::PUT NEW PS ON STACK 

::PUT NEW PC ON STACK 

;; POP NEW PC AND PS 


INITIALIZE A COUNTER LOCATION 

:1S THE CLOCK FLAG SET? 

: IF SO, CONTINUE ON WITH THE TEST 

;1F NOT INCREMENT THE COUNTER LOCATION 

:AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 

;CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 


;CLEAR CLOCK FLAG AND SET INTERRUPT ENABLE 

: CLEAR INTERRUPT ENABLE 

; TEST THE INTERRUPT ENABLE BIT 

;1S INTERRUPT ENABLE CLEARED 

;ERROR, ERROR INTERRUPT BIT CAN NOT BE CLEARED 


CZ7KWA~G LINE FREQUENCY 
Pil 10-APR-78 


CZKWAG.P 


002502 


002504 


002602 
002606 


000004 


000415 
012737 


104001 


900004 


012637 
012706 


pe PROGRAM 
11:05 


001000 
002426 
177546 
177546 


000100 


177546 


006266 


000240 


000004 


000004 
001000 


000004 


000102 


177546 


000004 


000100 
000102 


000004 
177776 


MACY11 30A(1052) 
TEST THAT INTERRUPT ENABLE BIT MAY BE CLEARED 


- SBTTL 
T0007 


ROOO?: 


1$: 
A0007: 


E0007: 
80007: 


C0007: 


E10007: 


D0007: 


E20007: 


8 
19-APR-78 


2 
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TEST THAT CLOCK INTERRUPTS TO CORRECT VECTOR ADDRESS 
;TEST THAT * INTERRUPTS TO CORRECT VECTOR ADDRESS 


SCOP 


B 

TSTB 
BAI 
ERROR 1 


STRAPO ,a84 


#1$,-(SP) 


LKS 
R3 


LKS 
80007 

R3 

A0007 
T0010 
#100,LKS 
R 


SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
;NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 
:HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 
INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
:SET UP VECTOR RETURN POINTER 

;1 INTERRUPT IS ENOUGH 

;GET STACK READY FOR INTERRUPTS 

:OROP CPU PRIORITY LEVEL 


;SET RETURN ADDRESS ON STACK FROM ‘RTI’ 


;RETURN TO NEXT INSTRUCTION 


s INITIALIZE A COUNTER LOCATION 
:1S THE CLOCK FLAG SET? 
:I1F SO, CONTINUE ON WITH THE TEST 


;1F NOT INCREMENT THE COUNTER LOCATION 
:AND GO TEST THE CLOCK FLAG AGAIN. UNLESS. 
;CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 


sENABLE INTERRUPT 


; STALL FOR TIME 

sWAIT FOR INTERRUPT 

sERROR, DIDNT GET INTERRUPT 
sENTER HERE IF INTERRUPTED 


s ERROR, 


INTERRUPT NOT CAUSED BY CLOCK 


-SBTTL TEST THAT CLOCK WILL INTERRUPT WITH PROCESSOR AT PRIORITY 5 
TEST THAT CLOCK WILL INTERRUPT WITH PROCESSOR AT PRIORITY 5 


sNOTE: 
T0010: 


ROO10: 


2$: 


SCOP 


#TRAPO, 284 
#340, a86 
#R00i0, SLPADR 
#00010, 100 
#340 28102 


2$ 

(SP)+, (SP)+ 
(SP)+,4 
T0011 


(SP)+,4 
#1000,SP 


IF ae IS NO HARDWARE ‘PSW" THIS TEST WILL BE SKIPPED 


SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 

;NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 

: INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
:SET UP VECTOR RETURN POINTER 

NO INTERRUPTS ALLOWED AFTER THE FIRST ONE 


:SAVE BUS TIMEQUT VECTOR CONTENTS 


;SET A SERVICE "PC' IN CASE TIMEOUT OCCURS 
:00 WE HAVE A HARDWARE ‘PSW'? 

:BRANCH IF YES 

sRESTORE STACK FROM TIMEOQU 

RESTORE BUS TIMEOUT VECTOR CONTENTS 


sRESTORE BUS TIMEQUT VECTOR CONTENTS 
s INITIALIZE THE STACK POINTER 


SEG 0014 


CZKWA-G LINE FREQUENCY 


CZKW 10-APR-78 


KWAG.P 


511 


MUWMWMAWAMWIMWAW UW 
ee el eed eed ed od aed 
OONAULS WP 


P11 
002612 


002662 


002664 


003032 


pe eg 


000415 


012737 
005000 
005200 
000240 
001375 
104002 
000404 
105737 
100401 
104001 


000004 


000443 
012706 


000715 


CLOCK PROGRAM 


11:05 


177546 


000100 


177546 


006266 


177546 
177546 


001000 


000300 


000004 
000004 
00302¢ 
000100 


177546 


177546 


000004 
000006 
001106 


000004 


77776 


000100 
177546 





2 
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TEST THAT CLOCK WILL INTERRUPT WITH PROCESSOR AT PRIORITY 5 


C 
MACY11 30A(1052) 19-APR-78 


SEQ 0015 


CLR R3 ; INITIALIZE A COUNTER LOCATION 
A0010: TSTB LKS ;1S THE CLOCK FLAG SET? 
BA! B0010 ;1F SO, CONTINUE ON WITH THE TEST 
INC R3 : IF NOT INCREMENT THE COUNTER LOCATION 
BNE A0010 ;AND GO TEST THE CLOCK FLAG AGAIN. UNLESS. 
E0010: — 1 en0t1 ;CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 
B0010: 
MOV #100,LKS ;ENABLE INTERRUPT 
CLR RO 
C0010: INC RO 
NOP sSTALL FOR SOME TIME 
BNE C0010 sWAIT FOR INTERRUPT 
E10010: _— 2 10011 sERROR, INTERRUPT FAILED TO OCCUR 
D0010: TSTB LKS sENTER HERE IF INTERRUPTED 
BMI T0011 
E20010: ERROR 1 sERROR, INTERRUPTDID NOT CLEAR THE CLOCK FLAG 
-SBTTL TEST THAT CLOCK WILL NOT INTERRUPT WITH PROCESSOR PRIORITY 6 
‘eee THAT CLOCK WILL NOT INTERRUPT WITH PROCESSOR PRIORITY 6 
NOTE: IF THERE IS NO HARDWARE 'PSW’ THIS TEST WILL BE SKIPPED 
70011: SCOPE 
MOV #TRAPO,a#4 sSETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
MOV #340 .a%6 sNO INTERRUPTS WHILE PRINTING FATAL MESSAGE 
MOV #ROO11,$LPADR ;SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 
ROO11: CLR LKS 
CLR R35 : INITIALIZE A COUNTER LOCATION 
A0011: TSTB LKS 31S THE CLOCK FLAG SET? 
BAI B0011 :1F SO, CONTINUE ON WITH THE TEST 
INC R3 z IF NOT INCREMENT THE COUNTER LOCATION 
BNE A0011 > AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 
E0011: a 1 ‘ees > CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 
B0011: 
MOV #1000,SP s INITIALIZE THE STACK POINTER 
MOV 4,-(SP) ;SAVE BUS TIMEOUT VECTOR CONTENTS 
MOV #1$,4 sSET SERVICE ‘PC* IN CASE TIMEOUT OCCURS 
MOV #PRE,PS D0 WE HAVE A HARDWARE "PS"? 
BR 2% sBRANCH IF YES 
1$ CMP (SP)+,(SP)+ sRESTORE STACK FROM BUS TIMEOUT 
oad seats sRESTORE BUS TIMEOUT VECTOR CONTENTS 
2$ MOV (SP)+,4 sRESTORE BUS TIMEOUT VECTOR CONTENTS 
MOV #£1011,100 ;SET UP VECTOR RETURN 
MOV #100,LKS : ENABLE INTERRUPT 
CLR R3 : INITIALIZE A COUNTER LOCATION 
C0011 TSTB LKS :1S THE CLOCK FLAG SET? 
BAI 00011 i1F SO, CONTINUE CN WITH THE TEST 
INC R3 :IF NOT INCREMENT THE COUNTER oo 
BNE C0011 * AND GO TEST THE CLOCK FLAG AGAIN. UNLESS.. 
E1011: oo 1 bane sCLOCK FLAG DID NOT SET AFTER A A WAITING PERIOD > 20 MS 
D0011: 


CZKWA-G LINE FREQUENCY 
10-APR-78 


CZKWAG.P11 


003032 
0 


003040 


003042 
003044 


003134 


003136 


003216 
003222 


000240 
000240 
000401 
104003 


000004 
012737 
012737 
012737 
012737 
005037 
005003 
105737 
100404 
005203 
001373 
104001 
000407 


005037 
000005 
105737 
100401 
104001 


000004 


012746 
000002 


012737 
005037 


005003 


000524 


012737 
005037 
005003 


ree PROGRAM 


705 


000200 
006266 
000340 
003074 
177546 


177546 


177546 
177546 


000340 
003156 


003156 
177546 


17754€ 


003210 
177546 


001124 


001106 


001106 


MACY11 30A(1052) 
TEST THAT CLOCK WILL NOT INTERRUPT WITH PROCESSOR PRIORITY 6 


E20011: 


. SBTTL 


sTEST THAT RESET SETS CLOCK FLAG 
TOO12: PE 


ROOT2: 
A0012: 


E0012: 
B0012: 


E10012: 


NOP 


BR 
ERROR 3 


D 
19-APR-78 


T0012 


2 
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:GIVE CLOCK EXTRA TIME TO INTERRUPT 
sERROR, CLOCK INTERRUPTED WITHOUT HAVING PRIORITY 


TEST THAT RESET SETS CLOCK FLAG 


BA 
ERROR 1 


#200, $GDDAT 
#TRAPO,a#4 


#340 ,a#6 
oe 


sHAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 
SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 

:NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 

; SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 

;CLEAR CLOCK FLAG 


s INITIALIZE A COUNTER LOCATION 

:1S THE CLOCK FLAG SET? 

:1f SO, “ONTINUE ON WITH THE TEST 

IF (.9T INCREMENT THE COUNTER LOCATION 

:AND GO TEST THE CLOCK FLAG ee UNLESS... 

;CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 ms 


:SHOULD SET CLOCK FLAG 


sERROP, RESET DIDN'T SET CLOCK FLAG 


-SBTTL TEST LINE CLOCK REPEATABILITY 


> TEST LINE CLOCK REPEATABILITY 


sMAKE SURE THAT OVER TWO EQUAL PERIODS OF TIME 
THE CLOCK PUTS OUT THE SAME NUMBER OF PULSES 
T0013: SCOPE 


RO013: 


64$: 
R1013: 
A0013: 


E0013: 


80013: 
001106 R2013: 


RO 

R1 

PR7,-(SP) 
#64$,~(SP) 
#R1013,SLPADR 
LKS 


R3 

LKS 

80015 

R3 

A0013 

T0014 
#R2013,SLPADR 
LKS 


R53 


sCLEAR 1ST TIME COUNT 
;CLEAR 1ST CLOCK COUNT 
::PUT NEW PS ON STACK 
:;PUT NEW PC ON STACK 
;: POP NEW PC AND PS 


sERROR IN NEXT FEW INSTRUCTIONS CAUSES A SHORT SCOPE LO 


sSYNC ON CLOCK FLAG A eorey OF TIMES 
INITIALIZE A COUNTER LOCATION 
1S THE CLOCK FLAG SET? 
:IF SO, CONTINUE ON WITH THE TEST 
a NOT INCREMENT THE COUNTER LOCATION 
AND GO TEST THE CLOCK FLAG _er UNLESS.. 
CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 


;MAKE SCOPE LOOP SHORT IN CASE OF AN ERROR 
>; INITIALIZE A COUNTER LOCATION 


SEQ 0016 


E 2 
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CZKWAG.P 10-APR-78 11:05 TEST LINE CLOCK REPEATABILITY SEQ 0017 
616 003224 105737 177546 C0013: TSTB LKS ;1S THE CLOCK FLAG SET? 
617 003230 100404 BMI 00013 IF SO, CONTINUE ON WITH THE TEST 
618 003232 005203 INC R3 If NOT INCREMENT THE COUNTER LOCATION 
619 003234 001373 BNE C0013 ;AND GO TEST THE CLOCK FLAG AGAIN. UNLESS. 
620 003236 104001 E10013: ERROR 1 ;CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 mS 
621 003240 000507 BR T0014 
622 003242 00013: 
623 003242 005037 177546 CLR LKS 
624 003246 032737 000200 177546 1$: BIT #200,LKS ;1S THE CLOCK FLAG SET ? 
625 003254 001374 BNE 1% ; NO, WAIT FOR IT 
626 003256 005037 177546 CLR LKS 
627 003262 105737 177546 FO013: TSTB LKS :1S CLOCK FLAG SET 
628 003266 100003 BPL G0013 :NO 
629 003270 005201 INC R1 :*#1 TO CLOCK COUNT 
630 003272 005037 177546 CLR LKS sCLEAR CLOCK IF SET 
631 003276 005200 GO0013: INC RO #1 TO TIME COUNT 
632 003300 001370 BNE FO013 REPEAT UNTIL RO=0 
635 003302 005000 CLR RO ;CLEAR 2ND TIME COUNT 
634 003304 005002 CLR R2 CLEAR 2ND CLOCK COUNT 
635 003306 012737 003306 001106 R3013: MOV #R3013,$LPADR ; INSURE A SHORT SCOPE LOOP 
636 003314 005037 177546 CLR LKS 
637 | sSYNC ON CLOCK FLAG TWICE 
638 003320 005003 CLR R53 : INITIALIZE A COUNTER LOCATION 
639 003322 105737 177546 HOO13: TSTB LKS 1S THE CLOCK FLAG SET? 
640 003326 100404 BAI J0013 ;1F SO, CONTINUE ON WITH THE TEST 
641 003330 005203 INC R3 ;1F NOT INCREMENT THE COUNTER LOCATION 
642 003332 001373 BNE H0013 :AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 
645 003334 104001 E20013: ERROR 1 sCLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 
644 0035336 000450 R T0014 
645 003340 J0013: 
646 003340 012737 003340 001106 R4013: MOV #R4015,SLPADR ; INSURE A SHORT SCOPE LOOP 
647 003346 005037 177546 CLR LKS 
648 003352 005003 CLR R3 ; INITIALIZE A COUNTER LOCATION 
649 003354 105737 177546 KO0O13: TSTB LKS :1S THE CLOCK FLAG SET? 
650 003360 100404 BAI L0013 IF SO, CONTINUE ON WITH THE TEST 
651 003362 005203 INC 3 : IF NOT INCREMENT THE COUNTER LOCATION 
652 003364 001373 BNE K0013 sAND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 
653 003366 104001 E30013: ERROR 1 >CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 MS 
654 003370 000433 R T0014 
655 003372 L0013: 
656 003372 012737 003140 001106 MOV #ROOTS,SLPADR ;MUST LOOP BACK TO BEGINING OF TEST IF EEROR COMES NOW 
657 003400 005037 177546 CLR LKS 
658 003404 032737 000200 177546 18: BIT #200,LKS :1S CLOCK FLAG SET ? 
659 003412 001374 BNE 1$ :NO, WAIT 
660 003414 005037 177546 CLR LKS 
661 003420 105737 177546 M0013: TSTB LKS :1S CLOCK FLAG SET 
662 003424 100003 BPL N0013 :NO 
663 003426 005202 INC Re :+1 TO CLOCK COUNT 
664 003430 005037 177546 CLR LKS CLEAR CLOCK IF SET 
665 003434 005200 NOO13: INC RO :+#1 TO TIME COUNT 
666 003436 001370 BNE M0013 REPEAT UNTIL RO=0 
667 003440 020102 CMP R1,R2 :I1S 1ST CLOCK COUNT EQUAL TO 2ND CLOCK COUNT? 
668 003442 001406 BEQ T0014 : YES 
669 003444 010137 001162 E40013: MOV R1,$REG1 :GET R1 READY FOR PRINTOUT 
670 003450 010237 001164 MOV R2,$REG2 ;GET R2 READY FOR PRINTOUT 
671 003454 104004 ERROR 4 ERROR, CLOCK FLAG OCCURRED DIFFERENT 


F 2 
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CZKWAG.P11 10-APR-78 11:05 TEST LINE CLOCK REPEATABILITY SEQ 0018 
one 003456 000240 NOP ;NUMBER OF TIMES IN EQUAL PERIODS 
674 
675 
676 ~SBTTL LINE CLOCK REGISTER ADDRESSING TEST 
677 sLINE CLOCK REGISTER ADDRESSING TEST 
678 TEST THAT THE “‘LKS*' REGISTER CAN NOT BE ADDRESSED AS ANYTHING BUT 177546 
679 :SET A LOCATION THAT IS CLOSE(DIFFERS BY 1 BIT) TO THE LKS REGISTER 
680 >TO 100. IF THE LKS ALSO CHANGES, THEN SIGNAL AN ERROR 
681 003460 000004 T0014: SCOPE 
682 003462 005037 001124 CLR SGDDAT 
683 003466 012737 003542 001106 MOV #ROO14,SLPADR ;INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
684 003474 012737 157546 001120 MOV #157546,$GDADR ;SAME AS ‘'LKS’’ ADDRESS EXCEPT WITH BIT 13 CLEAR 
685 003502 012737 003560 000004 MOV #A0014,4 ; SETUP VECTOR IN CASE IT IS NONEXISTANT 
686 0035510 012737 000340 000006 MOV #340,6 
687 003516 005037 177546 CLR LKS 
688 003522 017737 175372 012364 MOV @SGDADR, SAVE SAVE CONTENTS 
689 003530 013746 000340 MOV PR7,-(SP) :;PUT NEW PS ON STACK 
690 003534 012746 003542 MOV #64$,-(SP) ;;PUT NEW PC ON STACK 
691 003540 000002 RTI :: POP NEW PC AND PS 
692 003542 64$: 
693 003542 012706 001000 ROO14: MOV #1000,SP > SETUP THE STACK 
694 003546 005037 177546 CLR LKS 
695 003552 012777 000100 175340 10014: MOV #100, aSGDADR ;SET THE ‘‘CLOSE’* ADDRESS TG = 100 
696 003560 032737 000100 177546 A0014: BIT #100,LKS MAKE SURE THAT ‘‘LKS*’ WAS NOT AFFECTED 
697 003566 001401 BEQ B0014 
698 003570 104005 E0014: ERROR 5 :1T AFFECTED “‘LKS’' -- ERROR 
699 003572 005037 177546 B0014: CLR LKS 
700 003576 012737 003612 000004 MOV #T0015 ,4 
aa 003604 013777 012364 175306 MOV SAVE, @SGDADR ;RESTORE CONTENTS 
703 
704 
705 -SBTTL LINE CLOCK REGISTER ADDRESSING TEST 
706 sLINE CLOCK REGISTER ADDRESSING TEST 
707 003612 000004 T0015: SCOPE : 
708 003614 012737 003700 000004 MOV #A0015.4 ;SETUP VECTOR IN CASE IT IS NONEXISTANT 
709 003622 012737 000340 000006 MOV #3406 
710 003630 005037 001124 CLR SGDDAT 
711 003634 012737 003662 001106 MOV #ROOIS,SLPADR ;INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
712 003642 012737 177146 001120 MOV #177146,$GDADR ;SAME AS “‘LKS'’ ADDRESS EXCEPT WITH BIT 8 CLEAR 
713 003650 013746 000340 ‘MOV PR7,~-(SP) ::PUT NEW PS ON STACK 
714 003654 012746 003662 MOV #643 ,-(SP) ;:PUT NEW PC ON STACK 
715 003660 000002 RTI . :; POP NEW PC AND PS 
716 003662 64$: 
717 003662 072706 001000 ROO15: MOV #1000,SP ;SETUP THE STACK 
718 003666 005037 177546 CLR LKS 
719 003672 012777 000100 175220 10015: Mov #100, aS$GDADR ;SET THE ‘“CLOSE'’ ADDRESS TO = 100 
720 003700 032737 000100 177546 A0015: BIT 100,LKS ;MAKE SURE THAT “'LKS'* WAS NOT AFFECTED 
721 003706 001401 BEQ 015 
722 003710 104005 E0015: ERROR 5 ;IT AFFECTED “‘LKS'* -- ERROR 
723. 003712 005037 177546 BOO15: CLR LKS 
724 003716 012737 003730 000004 MOV #70016 
a 8 003724 005077 175170 CLR @SGDADR ;CLEAR OUT THE ‘’CLOSE*’ ADDRESS 


CZKWA-G LINE FREQUENCY 
10-APR-78 


CZKWAG.P11 


003730 


004042 


004046 
004050 
004056 


004160 


004164 
004166 
004174 
004202 
004206 


000004 


012746 
000002 


012706 
005037 


005077 


000004 
012737 


000002 


012706 
005037 
012777 
032737 
001401 
104005 
005037 
012737 
005077 


000004 


012737 


CLOCK PROGRAM 


11:05 


004016 
000340 
001124 
004000 
177446 
000340 
004000 


001000 
177546 
000100 
000100 


177546 
004046 
175052 


004134 
000340 
001124 
004116 
177556 
000340 
004116 


001000 
177546 
000100 
000100 


177546 
004164 
174734 


004252 
000340 
001124 
004234 


000004 
000006 


001106 
001120 


175102 
177546 


000004 


000004 
000006 


001106 
001120 


174764 


177546 


000004 


000004 
000006 


001106 


MACY11 30A(1052) 
LINE CLOCK REGISTER ADDRESSING TEST 


G 
19-APR-78 


2 
14:25 PAGE 16 





SEQ 0019 


-SBTTL LINE CLOCK REGISTER ADDRESSING TEST 
thane oe ADDRESSING TEST 


64$: 
ROO16: MOV 


10016: MOV 
A0016: BIT 


E0016: 
BOG16: CLR 


#R0016,$LPADR 
#177446, $GDADR 
PR7,-(SP) 

#64$ ,-(SP) 


#1000,SP 
LKS 


#100,aSGDADR 


B0016 


LKS 
#10017 


@$GDADR 


;SETUP VECTOR IN CASE IT IS NONEXISTANT 


: INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
;SAME AS "'LKS'’ ADDRESS EXCEPT WITH BIT 6 CLEAR 

::PUT NEW PS ON STACK 

;;PUT NEW PC ON STACK 

:; POP NEW PC AND PS 


;SETUP THE STACK 


;SET THE “‘CLOSE’’ ADDRESS TO = 100 
sMAKE SURE THAT ‘'LKS** WAS NOT AFFECTED 


;1T AFFECTED “‘LKS’’ -=- ERROR 


>CLEAR OUT THE ‘'CLOSE’* ADDRESS 


.SBTTL LINE CLOCK REGISTER ADDRESSING TEST 
sLINE CLOCK REGISTER ADDRESSING TEST 
T0017: SCOPE 


64$: 
ROO17: 


10017: MOV 
A0017: BIT 


E0017: 
B0OO17: CLR 


#A0017,4 


#340,6 
GDDAT 


$GD 
#R0017,SLPADR 
#177556, $GDADR 
PR7,-(SP) 

#64$ .-(SP) 


#1000.,SP 


LKS 

#100, aSGDADR 
#100,LKS 
B0017 


LKS 


#70020 
@SGDADR 


>SETUP VECTOR IN CASE IT IS NONEXISTANT 


: INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
SARE AS “‘LKS’’ ADDRESS EXCEPT WITH BIT 3 SET 

:sPUT NEW PS ON STACK 

7:PUT NEW PC ON STACK 

:; POP NEW PC AND PS 


;SETUP THE STACK 


:SET THE ‘‘CLOSE’’ ADDRESS TO = 100 
sMAKE SURE THAT “LKS'' WAS NOT AFFECTED 


:1T AFFECTED ‘‘LKS"* -- ERROR 


;CLEAR OUT THE “'CLOSE’* ADDRESS 


~SBTTL LINE CLOCK REGISTER ADDRESSING TEST 
sLINE CLOCK REGISTER ADDRESSING TEST 
T0020: SCOPE 


MOV 


T 
#RO020,SLPADR 


:SETUP VECTOR IN CASE IT IS NONEXISTANT 


: INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 


CZKWA-G LINE FREQUENCY 
10-APR-78 


CZKWAG.P11 


004214 


004276 


004302 
004304 
004312 
004320 
004324 
004332 
004340 
004344 
004350 
004352 
004352 
004356 
004362 
004370 
004376 
004400 
004402 
004406 
004414 


004420 


004476 


012737 
013746 
012746 
000002 


012706 
005037 
012777 
032737 
001401 
104005 
005037 
012737 
005077 


000004 


000002 
012706 


012737 
005077 


000004 


000002 
012706 


CLOCK PROGRAM 


11:05 


177566 
000340 
004234 


001000 
177546 
000100 
000100 


177546 
004302 
174616 


004370 
000340 
001124 
004352 
177746 
000340 
004352 


001000 
177546 
000100 
00010 


177546 
004420 
174500 


004534 


000340 
004476 


001000 


001120 


174646 
177546 


000004 


000004 
000006 


001106 
001120 


174530 
177546 


000004 


000004 
000006 
001124 
001106 
001120 


H 2 
MACY11 30A(1052) 19-APR-78 14:25 PAGE 17 


LINE CLOCK REGISTER ADDRESSING TEST 


64$: 
ROO020: 


10020: 
A0020: 


E0020: 
B0020: 


#177566, $GDADR 
PR7,-(SP) 
#64$,-(SP) 


#1000,SP 


LKS 
#100, a$GDADR 
B0020 


LKS 
#70021 4 
@SGDADR 


SEQ 0020 
SAME AS “'LKS'’ ADDRESS EXCEPT WITH BIT 4 SET 

;;PUT NEW PS ON STACK 

;;PUT NEW PC ON STACK 

:; POP NEW PC AND PS 

;SETUP THE STACK 


;SET THE ‘'CLOSE'’ ADDRESS TO = 100 
MAKE SURE THAT “'LKS'’ WAS NOT AFFECTED 


;1T AFFECTED ‘'LKS’’ -=- ERROR 


;CLEAR OUT THE ‘’CLOSE*’ ADDRESS 


-SBTTL LINE CLOCK REGISTER ADDRESSING TEST 
sLINE CLOCK REGISTER ADDRESSING TEST 
T0021: SCOPE 


64$: 
ROO21: 


10021: 
A0021: 


E0021: 
B0021: 


#R0021,SLPADR 
#177746, $GDADR 
PR7,-(SP) 

#64$ ,-(SP) 


#1000,SP 
KS 


L 

#100 ,aSGDADR 
#100,LKS 
80021 


LKS | 
#70022 ,4 
@SGDADR 


;SETUP VECTOR IN CASE IT IS NONEXISTANT 


: INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
:SAME AS “’LKS'’ ADDRESS EXCEPT WITH BIT 7 SET 

>;PUT NEW PS ON STACK 

>;PUT NEW PC ON STACK 

>; POP NEW PC AND PS 


:SETUP THE STACK 


:SET THE ‘‘CLOSE’* ADDRESS TO = 100 
sMAKE SURE THAT ‘’LKS'’ WAS NOT AFFECTED 


:1T AFFECTED ‘‘LKS" ERROR 


:CLEAR OUT THE “‘CLOSE’* ADDRESS 


-SBTTL LINE CLOCK REGISTER HIGH BYTE TEST 
sLINE CLOCK REGISTER HIGH BYTE TEST 


MAKE SU 


T0022 


64$: 
ROO22: 


SCOP 


#ROO22 , SLPADR 
#177547 ,SGDADR 
PR7,-(SP) 
#64$,-(SP) 


RE a LKS REGISTER LOW BYTE RESPONDS TO THE HIGH BYTES ADDRESS 


:SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
:NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 


s INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
;HIGH BYTE OF THE LKS REGISTER 

:;PUT NEW PS ON STACK 

:;PUT NEW PC ON STACK 

;; POP NEW PC AND PS 


;SETUP THE STACK 


| 


CZKWA-G LINE FREQUENCY CLOCK PROGRAM 


CZKWAG. 


P11 


004502 
004506 
004514 
004522 
004524 
004526 
004532 


004534 
004536 


004630 


004632 
004634 


004736 


005037 
112777 
032737 
001001 
104005 
005037 
000005 


000004 
012737 
012737 
012737 
012737 
005037 
005003 
105737 
100404 
005203 
001373 
104001 
000410 


012737 
023737 


001401 
104001 


000004 


005037 
013746 
012746 
000002 


012737 


104001 


10-APR-78 11:05 


177546 
000100 
000100 


177546 


006266 
000340 
000200 
004566 
177546 


177546 


000200 
177546 


006266 
000340 
000200 
004676 
004736 
177546 


000340 
004710 


000300 
000000 


001124 


174404 
177546 


000004 
000006 
001124 
001106 


177546 
001124 


000004 


000100 


177546 


177546 


MACY11 30A(1052) 
LINE CLOCK REGISTER HIGH BYTE TEST 


10022: 


E0022: 
A0022: 


I 
19-APR-78 


LKS 
#100, a$GDADR 
#1 oo 


-SBTTL CLOCK FLAG BIT TEST 
:CLOCK FLAG BIT TEST 


T0023: 


ROO23: 
A0023: 


E0023: 


80023: 
10023: 


E10023: 


. SBTTL 
T0024: 


ROO024: 


64$: 
A0024: 


E0024: 


SCOPE 


MOV 


B 
ERROR 1 


#TRAPO,a#4 


#200,LKS 
LKS,SGDDAT 
T0024 


INTERRUPT TEST 


SCOPE 


B 
ERROR 1 


#TRAPO 284 
#340,086 
#200, $GDDAT 
#R0024 , SLPADR 
#£0024,100 
LKS 


PR7,-(SP) 
#64$,-(SP) 
#300,LKS 
#0 

A0024 
SGDDAT,LKS 
T0025 


2 
14:25 PAGE 18 


;SET THE HIGH BYTE ADDRESS TO = 100 
MAKE SURE THAT "'LKS’’ LOW BYTE WAS AFFECTED 


; SHOULD HAVE SET BIT 7. 


ERROR 


sSETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
:NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 


; INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
s INITIALIZE A COUNTER LOCATION 


:1S THE CLOCK FLAG SET? 
IF SO, CONTINUE ON WITH THE TEST 


;1F NOT INCREMENT THE COUNTER LOCATION 
> AND GO TEST THE CLOCK FLAG AGAIN. UNLESS. 
;CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 Ms 


;MOVE A 1 INTO THE CLOCK FLAG BIT 
:SHOULD NOT AFFECT THE FLAG BIT 


;CLOCK FLAG DID NOT CLEAR 


> SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 

:NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 

:HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 
> INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 


sALLOW CLOCK INTERRUPTS 


;:PUT NEW PS ON STACK 
:;PUT NEW PC ON STACK 
;; POP NEW PC AND PS 


WAIT FOR 20+ MS 

;LOOP BACK IF NOT DONE WAITING . 

RESET SHOULD CLEAR INTERRUPT ENABLE 

sAND LEAVE THE CLOCK FLAG SET 

:GO ON TO THE NEXT TEST IF IT DID 

RESET SET INTERRUPT ENABLE OR CLEARED CLOCK FLAG 


SEQ 0021 


CZKWA-G LINE FREQUENCY 


CZKWA 10-APR-78 11 


G.P11 


004740 


005100 


005102 


005210 
005216 


000004 


012746 
000002 


005003 
105737 
100404 
005203 
001373 
104001 
000417 


005046 
012746 
000002 
012737 
000001 
104006 
000405 
022737 
001401 
104001 


000004 
012737 
012737 
012737 
012737 
013746 
012746 
000002 


012737 


001401 


006266 


000340 
005024 


177546 


005054 
000100 


000300 


006266 


005146 


005220 
000140 
177546 
001000 
000100 
000000 


177546 


CLOCK PROGRAM 
705 


000004 


000100 


177546 


177546 


000004 


001106 


000100 
000102 


177546 


091124 


MACY11 30A(1052) 


J 2 
19-APR~78 14 


NO SACK TIMEOUT TEST 
-SBTTL NO SACK TIMEOUT TEST 


:NO SACK TIMEOUT 
T0025: 


ROO025: 


64$: 
A0025: 


E0025: 
B0025: 


1$: 


E10025: 


C0025: 


E20025: 


.SBTTL 
: T 


64$: 
ROO26: 


A0026: 
10026: 


SCOPE 


8 
ERROR 1 


TEST 
#TRAPO ,a#4 


#R0025,$LPADR 
#340,102 
#0025, 100 
PR7,-(SP.) 
#64$,-(SP) 


R3 
LKS 
B0025 
R3 
A0025 


T0026 


- (SP) 
#1$,-(SP) 
#100,LKS 


RESET TEST 
TES 


#TRAPO ,a#4 
#340 ,a%6 
#200 ,SGDDAT 
#20026, SLPADR 
PR7,-(SP) 
#64$,-(SP) 


#€0026,100 
#140,102 


LKS 
#1000,SP 
#100,LKS 


#0 

A0026 
LKS,$GDDAT 
T0027 


7:25 PAGE 19 
SEQ 0022 


;SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 

:NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 

>HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 
; INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 


;NO INTERRUPTS AFTER THE FIRST ONE 


;;PUT NEW PS ON STACK 
;;PUT NEW PC ON STACK 
:; POP NEW PC AND PS 


> INITIALIZE A COUNTER LOCATION 
71S THE CLOCK FLAG SET? 
IF SO, CONTINUE ON WITH THE TEST 

: IF NOT INCREMENT THE COUNTER LOCATION 

SAND GO TEST THE CLOCK FLAG AGAIN. UNLESS. 

;CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 ms 


:DROP CPU PRIORITY LEVEL 

;SET RETURN "PC’ FROM THE RTI 

>RETURN TO NEXT INSTRUCTION 

sENABLE CLOCK INTERRUPTS 

: THE ONLY WAY TO LEAVE HERE WITHOUT ERROR IS TO INTERRUP 
IF IT ERROR 1S HERE ITS BECAUSE OF A ‘'NO-SACK** TIMEOUT 


:FIND OUT WHAT THE INTERRUPT DID TO THE CLOCK STATUS REG 
;I1T CLEARED THE INTERRUPT ENABLE OR THE FLAG BIT 


>SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
:NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 
sHAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 
INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
PUT NEW PS ON STACK 
: TPUT NEW PC ON STACK 
;: POP NEW PC AND PS 


;SETUP STATUS FOR AFTER THE INTERRUPT 
;SETUP THE STACK 

:SET INTERRUPT ENABLE BIT NOW 

WAIT FOR CLOCK FLAG TO SET 


;RESET SHOULD NOT CLEAR THE FLAG 
FIND OUT IF ID DIT DID OR NOT 


K 2 
CZKWA-G LINE FREQUENCY CLOCK PROGRAM MACY11 ‘+ leat 19-APR-78 14:25 PAGE 20 


CZKWAG.P11 10-APR-78 11:05 RESET TES SEQ 0023 

ore 005220 104001 E0026: ERROR 1 sRESET DID NOT INITIALIZE THE LKS WORD CORRECTLY 

954 

955 

956 -SBTTL CLOCK FLAG BIT TEST 

957 CLOCK FLAG BIT TEST 

958 :MAKE SURE IT DOESNT CLEAR WHEN YOU TRY TO SET IT VIA A ‘'MOV' INSTRUCTION 

959 005222 000004 T0027: SCOPE 

960 005224 012737 006266 000004 MOV #TRAPO,a#4 ;SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 

961 005232 012737 000340 000006 MOV #340,a%6 7NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 

962 005240 012737 000200 001124 MOV #200. SEDDAT “HAVE GOOD DATA INFO READY FOR TYPEOUT IN CASE OF AN ERR 
963 005246 012737 005266 001106 MOV #R0027, SLPADR INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
964 005254 005037 000102 CLR gabe 

965 005260 012737 005350 000100 MOV #10030 100 

966 005266 005037 177546 RO027: CLR Lk 

967 005272 013746 000340 MOV ig -(SP) :;PUT NEW PS ON STACK 

968 005276 012746 005304 MOV #64$,-(SP) -:PUT NEW PC ON STACK 

969 005302 000002 RTI :: POP NEW PC AND PS 

970 005304 648: 

971 005304 012706 001000 MOV #1000,SP :SETUP THE STACK 

972 005310 005037 001234 CLR WORD >SETUP A COUNTER LOCATION TO = 0 

973 005314 005237 001234 A0027: INC WORD 

974 005320 001375 BNE A0027 :WASTE TIME LOOPING UNTIL THE COUNTER REACHES 0 

975 005322 012737 000300 177546 MOV #300,LKS “SET INTERRUPT ENABLE AND TRY TO SET THE CLOCK FLAG 
976 005330 012737 000200 177546 MOV #200.LKS = TRY TO SET IT AGAIN 

977 005336 023737 177546 001124 CMP LKS, $GDDAT “DID THE CLOCK FLAG STAY SET? 

978 005344 001401 BEQ T0030 :IF NOT GO ON TO THE NEXT TEST 

979 005346 104001 | E0027: ERROR 1 “ERROR - MOVED A ‘1° INTO THE CLOCK FLAG BIT AND IT STAY 
981 

982 

983 .SBTTL CLOCK FLAG AFTER INTERRUPT TEST 

984 >SEE IF AN INTERRUPT CLEARS THE CLOCK FLAG 

985 005350 000004 T0030: SCOPE : 

986 005352 012737 006266 000004 MOV #TRAPO, ae :SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 

987 005360 012737 000340 000006 MOV #340,a86 =NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 

988 005366 005037 177546 CLR LKS :NO CLOCK INTERRUPTS BEFORE WE ARE READY 

989 005372 012737 000100 001124 MOV #100, SGDDAT ;HAVE GOOD DATA INFO READY FOR TYPEQUT IN CASE OF AN ERR 
990 005400 012737 005406 001106 MOV #ROOSO,S$LPADR =: INITIALIZE THE LOOPBACK ADDRESS IN CASE OF AN ERROR 
991 005406 012737 005454 000100 RC030: MOV #0030, 100 :SETUP CLOCK INTERRUPT VECTOR 

992 005414 005037 000102 CLR 102 :PRIORITY LEVEL WILL ALLOW FURTHER INTERRUPTS 

993 005420 005046 CLR -(SP) “DROP CPU PRIORITY LEVEL 

994 005422 012746 005430 MOV #1$,-(SP) “SET RETURN 'PC' FROM THE RTI 

995 005426 000002 RTI *RETURN TO NEXT INSTRUCTION 

996 005430 012706 001000 1$: MOV #1000,SP >SETUP THE STACK 

997 005434 005037 177546 CLR LKS 

998 005440 105037 00123¢ CLRB «WORD :CLEAR OUT A COUNTER LOCATION 

999 005444 012737 000100 177546 MOV #100.LKS : ENABLE CLOCK INTERRUPTS NOW 
100C 005452 000001 WAIT WAIT FOR AN INTERRUPT 
1001 005454 012737 005506 000100 A0030: MoV #60030, 100 SERROR IF WE INTERRUPT AGAIN 
1002 005462 005046 CLR -(SP “DROP CPU PRIORITY LEVEL 
1003 005464 012746 005472 MOV 780030, -(SP) :SET RETURN ‘PC’ FROM THE RTI 
1004 005470 000002 RTI =RETURN TO NEXT INSTRUCTION 
1005 005472 105237 001234 B0030: INCB WORD -DO A NOTHING LOOP FOR A VERY SHORT PERIOD OF TIME 
1006 005476 001375 BNE B0030 "WE SHOULD INCREMENT TO 0 LONG BEFORE AN INTERRUPT COMES 


1007 005500 005037 177546 CLR LKS 


CZKWA-G LINE FREQUENCY 
1 10-APR-78 


CZKWAG.P1 


ed ed 8 ed ed od od od 
ooocooe°oo 
et et ee ed aed ot od od 
OOONAUNLE WH 


005504 
005506 


005510 


005640 


005642 


0 
005710 


000401 
104001 


000004 


000431 
012706 


000002 
012737 


000404 
000240 
000240 


000401 
104003 


000004 


000433 


CLOCK PROGRAM 
11:05 


006266 


177546 
177546 


001000 
000340 
005576 


005554 
000100 
177546 


006266 


177546 
177546 


000004 
000006 
001106 


000100 
177546 


000004 
000006 
001106 


MACY11 30A(1052) 
CLOCK FLAG AFTER INTERRUPT TEST 


E0030: 


BR 
ERROR 1 


L 
19-APR-78 


T0031 


2 
14:25 PAGE 21 


; INTERRUPT DID NOT CLEAR THE CLOCK FLAG 


-SBTTL NO INTERRUT AT PRIORITY 7 TEST 
canst THAT CLOCK WILL NOT INTERRUPT WITH PROCESSR AT PRIORITY 7 


ROO31: 
A0031: 


E0031: 
B0031: 


64$: 


C0031: 


B 
E10031: 


D0031: 


E20031: 


SCOPE 


8 
ERROR 3 


#TRAPO,a#4 
#340,a4%6 
—oe 


#1000,SP 
PR7,-(SP) 
#64% ,-(SP) 


#£0031,100 
Sa els 


LKS 
00031 
R3 
C0031 
T0032 


T0032 


;SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
:NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 
SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 


s INITIALIZE A COUNTER LOCATION 
:1S THE CLOCK FLAG SET? 
IF SO, CONTINUE ON WITH THE TEST 


;1F NOT INCREMENT THE COUNTER LOCATION 
;AND GO TEST THE CLOCK FLAG AGAIN. UNLESS. 


SEQ 0024 


;CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 ms 


; INITIALIZE THE STACK POINTER 
:;PUT NEW PS ON STACK 

;;PUT NEW PC ON STACK 

>; POP NEW PC AND PS 


:SET UP VECTOR RETURN 

sENABLE INTERRUPT 

> INITIALIZE A COUNTER LOCATION 

:1S THE CLOCK FLAG SET? 

;1F SO, CONTINUE ON WITH THE TEST 

7 IF NOT INCREMENT THE COUNTER LOCATION 

:AND GO TEST THE CLOCK FLAG AGAIN. UNLESS 
;CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 


:GIVE CLOCK EXTRA TIME TO INTERRUPT 
sERROR, CLOCK INTERRUPTED WITHOUT HAVING PRIORITY 


-SBTTL CC PUSH TEST FOR CLOCK INTERRUPTS 
ong? THAT at INTERRUPT PUSHES CONDITION CODES ONTO STACK 


ROOS2: 
A0032: 


E0032: 


#TRAPO, 284 
#340,086 
#ROOS2 , SLPADR 
LKS 

R3 

LKS 

B0032 

R3 

A0032 

T0033 


; SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
:NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 
;SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 


INITIALIZE A COUNTER LOCATION 
1S THE CLOCK FLAG SET? 
i1F SO, CONTINUE ON WITH THE TEST 

IF NOT INCREMENT THE COUNTER forges 

;AND GO TEST THE CLOCK FLAG AGAIN. UNLESS.. 

>CLOCK FLAG DID NOT SET AFTER'A VALTING PERIOD > 


20 MS 


20 MS 


mM 2 
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CZKWAG.P11 | 10-APR-78 11:05 CC PUSH TEST FOR CLOCK INTERRUPTS SEQ 0025 
1064 005712 80032: 
1065 005712 012706 001000 MOV #1000,SP INITIALIZE THE STACK POINTER 
1066 005716 005037 000776 CLR —s BUF 1 
1067 005722 005037 000774 CLR —s- BUF 2 
1068 005726 012737 005756 000100 MOV —- #C0032,,100 :SET UP VECTOR RETURN 
1069 005734 012737 000100 177546 MOV —s- #100, LKS SENABLE INTERRUPT 
1070 005742 005046 CLR -(SP) :DROP CPU PRIORITY LEVEL 
1071 005744 012746 005752 MOV —s- #1$,, - (SP) :SET RETURN 'PC' FROM THE RTI 
1072 005750 000002 RTI ;RETURN TO NEXT INSTRUCTION 
1073 005752 000277 1$: +SEC!SEV!SEZ!SEN :SET ALL CONDITION CODES 
1074 005754 000001 WAIT :WAIT FOR INTERRUPT 
1075 005756 022737 000017 000776 C0032: CMP #17,BUF1 
1076 005764 001405 BEQ T0033 
1077 005766 012737 000017 001124 MOV #17, $GDDAT 
1078 005774 104007 ERROR 7 ;ERROR DID NOT PUSH CORRECT PS ONTO STACK 
179 005776 000721 BR T0032 
Lv 
1081 
1082 
1083 .SBTTL PC PUSH TEST FOR CLOCK INTERRUPTS 
1084 ;TEST THAT CLOCK INTERRUPT PUSHES THE PROGRAM COUNTER ONTO STACK 
1085 006000 000004 T0033: SCOPE 
1086 006002 012737 006266 000004 MOV = #TRAPO,a#4 ;SETUP VECOR IN CASE OF UNFORSEEN PROBLEMS 
1087 006010 012737 000340 000006 MOV —s-s«# 340, a6 ;NO INTERRUPTS WHILE PRINTING FATAL MESSAGE 
1088 006016 012737 006024 001106 MOV § #ROO33,S$LPADR ;SETUP LOOPBACK ADDRESS IN CASE OF AN ERROR 
1089 006024 005037 177546 ROO33: CLR LKS 
1090 006030 005003 CLR R3 ; INITIALIZE A COUNTER LOCATION 
1091 006032 105737 177546 A0033: TSTB  LKS :1S THE CLOCK FLAG SET? 
1092 006036 100404 BMI 80033 ;1F SO, CONTINUE ON WITH THE TEST 
1093 006040 005203 INC R3 :1F NOT INCREMENT THE COUNTER LOCATION 
1094 006042 001373 BNE A0033 ;AND GO TEST THE CLOCK FLAG AGAIN. UNLESS... 
1095 006944 104001 E0033: ERROR 1 :CLOCK FLAG DID NOT SET AFTER A WAITING PERIOD > 20 ms 
1 006046 000432 BR T0034 
1087 006050 80033: 
1098 006950 012706 001000 mov #1000, SP ; INITIALIZE THE STACK POINTER 
1099 006054 005037 000776 CLR —- BUF 1 
1100 005037 000774 CLR —s- BUF 2 
1101 006064 012737 006114 000100 MOV —- #C0033.100 :SET UP VECTOR RETURN 
1102 006072 012737 000100 177546 MOV _—s #100, LKS :ENABLE INTERRUPT 
1103 006100 005046 CLR =(SP) :OROP CPU PRIORITY LEVEL 
1104 006102 012746 006110 MOVs #18,,-(SP) :SET RETURN 'PC’ FROM THE RTI 
1105 006106 000002 RTI :RETURN TO NEXT INSTRUCTION 
1106 006110 000277 1$: +SEC!SEV!SEZ!SEN :SET ALL CONDITION CODES 
1107 006112 000001 WAIT :WAIT FOR INTERRUPT 
1108 006114 022737 006114 000774 C0033: CMP § #C0033,BuUF2 
1109 006122 001404 BEQ T0034 
1110 006124 012737 006114 001124 £10033: MOV —- #C0033, SGDDAT 
1111 006132 104010 ERROR 10 ;ERROR, DID NOT PUSH CORRECT PC ONTO STACK 
1113 
1114 
1115 .SBITL END OF PASS INDICATING 
1116 006134 000004 T0034: SCOPE 
1117 006136 005037 177546 CLR LKS TURN THE CLOCK OFF 
1118 006142 000005 RESET :TURN EVERYTHING OFF 


CZKWA-G 


LINE 
P 


CZKWAG.P11 


kk ed ed od od od Ws 
el ed ed ed od od 


AAAI AIA AIP 9 PO PO PO PO 
A EWN SO OBNAMNE WN =O VON AUN EWN A OOBNAUNRWN =O DBNAARWN—OOONOUPUN OS 


ee ee ee ee ee me we me we me ee we ee ed ed ed ed od os wd 
ee ec ee ee re ee ee me we me ee we ee we we ed ee eed ed ot od 6d ot od 
NS NNN NA AAA AAAAAAMMMN ADAP HSS LAR HRHLHLHS PWG 


006144 


006222 
006222 


006334 


000004 


104400 


013700 
001405 
000005 
004710 
000240 
000240 
000240 


000137 
005015 


000137 


001102 
001220 
001100 
100000 


006246 
001100 


006265 


000042 


001672 
047105 
051523 

377 


006612 


000002 
00123! 
006612 


001450 
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001100 


020104 
021440 


000 
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MACY11 350A(1052) 19-APR-78 14:25 PAGE 23 
END OF PASS INDICATING 


eee eee e RR RRR RRR RRR RRRRRRRRRRRARRREREERESES EERE CSRS ERS E LESSEE SS 


~SBTTL END OF PASS ROUTINE 


:* INCREMENT THE PASS NUMBER ($PASS) 

s*TYPE “END PASS #XXXXX"' (WHERE XXXXX IS A DECIMAL NUMBER) 
;*IF THERES A MONITOR GO TO IT 

>*IF THERE ISN'T JUMP TO T0001 


SEOP: 
SCOPE 
CLR STSTNM :;ZERO THE TEST NUMBER 
CLR STIMES ;;ZERO THE NUMBER OF ITERATIONS 
INC SPASS 3; INCREMENT THE PASS NUMBER 
BIC #100000,$PASS :;DON'T ALLOW A NEG. NUMBER 
DEC (PC)+ ; ;LOOP? 
SEOPCT: .WORD 1 
BGT SDOAGN ° s¥ES 
MOV (PC)+,a(PC)+ : RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE » SENDAG ;: TYPE ‘’END PASS #°*° 
MOV SPASS,-(SP) :;SAVE SPASS FOR TYPEOUT 
TYPDS ::G0 TYPE--DECIMAL ASCII WITH SIGN 
TYPE » SENULL 7: TYPE A NULL CHARACTER 
SGET42: 
MOV a#42,R0 :;GET MONITOR ADDRESS 
BEQ SDOAGN :: BRANCH IF NO MONITOR 
RESET 7: CLEAR THE WORLD 
SENDAD: JSR PC, (RO) 3::G0 TO MONITOR 
NOP 3: SAVE ROOM 
NOP és 
NOP :;ACT11 
SDOAGN: | 
JAP a#T0001 > RETURN 
SENDMG: .ASCIZ <15><12>/END PASS #/ 
SENULL: .BYTE -1,-1,0 ; NULL CHARACTER STRING 
TRAPO: CLR - (SP) 
JSR PC STYPE :PRINTOUT''TRAPPED TO 4 FROM ‘' 
TRPRES sADDRESS OF THE MESSAGE 


MOV (SP) ,-(SP) 
SUB #2, (SP) 


:GET THE ADDRESS WHERE THE TRAP OCCURED 
MAKE IT RIGHT 

; TYPE OUT ADDRESS IN OCTAL 

>PRINTOUT A CARRIAGE RETURN-LINE FEED 


:PRINTOUT RESTARTING MESSAGE 
- ADDRESS OF RESTART MESSAGE 


JSR PC ,STYPE 


JMP START 


SEQ 0026 


CZKWA-G 
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006340 


006546 


10-APR-78 1 


000240 
032777 
001111 
000416 


013746 
012737 


000423 
032777 


105237 


040000 


000004 


000004 


000004 


000400 
172512 
001103 
001115 
001000 
001110 


001103 
001220 


004000 
001100 


001104 
001220 


000001 
006610 
001102 


172566 


000004 


172520 
001102 


001103 
172462 
001106 


172430 


001104 


001104 
001220 
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14:25 SAGE 24 


S@RCHHRROHEKEHTEHEH TO REHEHHTE RT EREHEREREE HEHEHE TeHEteeteterees 


. SBTTL 


SCOPE HANDLER ROUTINE 
:*TH3S ROUTINE CONTROLS THE LOOPING OF SUBTESTS, 


[T WILL INCREMENT 


>*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

con SWITCH OPTIONS ots BY THIS ROUTINE ARE: 

-@ 


2eSwi4=1 
:*SW11=1 
7*Sw09=1 
:*SW08=1 
7 *CALL 


SSCOPE: 
NOP 
18: BIT 


SXTSTR: BR 


S$: CMP 


2$: TSTB 


1$: MOV 
MOV 
SSVLAD: INCB 


LOOP ON TEST 


INHIBIT ITERATIONS 


LOOP OW ERROR 


LOOP ON TEST IN SWR<7:0> 


#B1T14,aSWR 

BNE SOVER 
SMAARASTART OF eo FOR THE XOR 
@#ERRVEC,-(SP) 
#5$ ,a#ERRVE 
a#177060 
(SP) +, @#ERRVEC 
SSVLAD 

(SP)+, (SP)+ 
(SP)+, SQFERRVEC 


LOOP ON 
CODE FOR _ KOR TESTERS##RS 
la -aSu 


§ 
@SUR,STSTNM 
SOVER 


SERFLG 
$ 


3 
SERMAX , SERFLG 
ro tel teai 
SLPERR,SLPADR 
SOVER 


SERFLG 
STIMES 


1$ 
a 


SPASS 
1$ 


SICNT 
STIMES ,SICNT 
SOVER 


#1,SI1CNT 
SMXCNT ,STIMES 
STSTNM 


;; SCOPE=10T 


; LOOP ON PRESENT TEST? 
YES IF Sw14=1 

TESTERSSARB 

:31F RUNNING ON THE ‘'XOR’’ TESTER CHANGE 

¢sTHIS INSTRUCTION TO A ‘NOP’ (NOP=240) 

;:SAVE THE CONTENTS OF THE ERROR VECTOR 

+3 SET FOR TIMEOUT 


TIME OUT ON XOR? 
: :RESTORE THE a VECTOR 
:GO TO THE NEXT TEST 


::CLEAR THE STACK AFTER A TIME OUT 
+ RESTORE THE ERROR VECTOR 
Lig PRESENT TEST 


:sLOOP ON SPEC. TEST? 
::0N THE RIGHT TEST? 

:BR IF YES 

::WAS AN ERROR OCCURRED? 
i ERAX. ERRORS FOR THIS TEST OCCURRED? 
; LOOP ON ERROR? 


R IF NO 
TPSET LOOP ADDRESS TO LAST SCOPE 
:2 ZERO ye ERROR FLAG 


SWR<7:0> 


;;CLEAR THE NUMBER OF “eo TO MAKE 


;sESCAPE TO THE NEXT 
Bg ae aesaaieecned 


se TF FIRST PASS OF PROGRAM 

INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
;; CHECK THE NUMBER OF ITERATIONS MADE 
:3;BR IF MORE ITERATION REQUIRED 
;sREINITIALIZE THE ITERATION COUNTER 
;;SET NUMBER OF ITERATIONS TO DO 
:; COUNT TEST NUMBERS 


SEQ 0027 


CZKWA-G a os FREQUENCY 
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006552 
006556 


006610 


006612 


24 
006730 


071637 
011637 
005037 
112737 
013777 
013716 
000002 
000010 


105737 


013746 
105366 


000770 


CLOCK PROGRAM 


11:05 
001106 


001106 


001155 


000002 


000002 
000011 
000200 


006756 
001154 


001152 
000001 


006756 
007022 


001115 
172336 
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MOV (SP), SLPADR 

MOV (SP), SLPERR 

CLR SESCAPE 

MOVB #1,SERMAX 
SOVER: MOV STSTNM,@DISPLAY 

MOV SLPADR, (SP) 

RTI 
SMXCNT: 10 


7:25 PAGE 25 


SEQ 0028 


;;SAVE SCOPE LOOP ADDRESS 

:;SAVE ERROR LOOP ADDRESS 

+ CLEAR THE ESCAPE FROM ERROR ADDRESS 
sONLY ALLOW ONE(1) ERROR ON NEXT TEST 

::DISPLAY TEST NUMBER 

‘ra _ ADDRESS 


;;MAX. NUMBER OF ITERATIONS 


‘APPAR RRRRRRRRASARRARERALASESASESE ELEC S ELSES ESSE SESS ESE SSeS ae 


-SBTTL TYPE ROUTINE 


s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
ce ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 


*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
: #NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
sSnTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
aca LL 


es USING A TRAP INSTRUCTION 
TYPE »MESADR 


:+0R 
: TYPE 
e MESADR 
;* 
STYPE TSTB STPFLG 
BPL 1$ 
HALT 
BR 3$ 
1$ MOV RO,-(SP) 
MOV a2(SP),RO 
2$: MOVB (RO)+,=(SP) 
BNE 4% 
TST (SP)+ 
60$: MOV (SP)+,R0 
3$: ADD #2, (SP) 
RTI | 
4$: CMPB #THT, (SP) 
BEQ 8$ 
CMPB #TCRLF, (SP) 
BNE 5$ 
TST (SP)+ 
TYPE 
SCRLF 
BR 2$ 
5$: JSR PC ,STYPEC 
6$: CMPB SFILLC,(SP)+ 
BNE 2$ 
MOV SNULL ,-(SP) 
7$: DECB 1(SP) 
BLT 6$ 
JSR PC,STYPEC 
DECB SCHARCNT 
BR 7$ 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


21S THERE A TERMINAL? 
3 F YES 


a IF NO TERMINAL 


ct 

7:SAVE RO 

::GET ADDRESS OF ASCIZ STRING 

:;PUSH CHARACTER TO BE TYPED ONTO STACK 
77:BR IF IT ISN‘T THE TERMINATOR 

:3;1F TERMINATOR POP IT OFF THE STACK 

: RESTORE RO 

eee RETURN PC 


: BRANCH IF <HT> 
::BRANCH IF NOT <CRLF> 


;;POP <CR><LF> EQUIV 
:: TYPE A CR AND LF 


;;GET NEXT CHARACTER 

::GO TYPE THIS CHARACTER 

:31S IT TIME FOR ag CHARS .? 

::1F NO GO GET NEXT CHA 

:3GET # OF FILLER CHARS. “NEEDED 

;;AND THE NULL CHAR. 

>:DOES A NULL NEED TO BE TYPED? 

;;BR IF NO=--GO POP THE NULL OFF OF STACK 
:;GO TYPE A NULL 

+300 id COUNT AS A COUNT 


CZKWA-G LINE Honan gag 
10-APR-78 
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oo 


COVONAUSWNM—"OVOOe~ 


el mel ek ek ek ed ed td od od os os 
LAA OA A GO OA A GAA A A a rt Ut 
Nt ot tt 2 Bt IO 


™m 
> ad 


006732 
006736 


007024 


007026 


007104 


112716 


000207 


000011 
000200 


010046 


002402 
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000040 
006756 
000007 


172164 


000002 
000015 


007022 
000012 


020200 
000020 
000055 


007242 
000040 


007232 


007022 


172156 
000002 


000002 


000001 
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sHORIZONTA. TAB PROCESSOR 


8$: MOVB 
9$: JSR 
BITB 
BNE 
TST 
BR 
STYPEC: TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 
18: CMPB 
BGE 
INCB 
SCHARCNT: .WORD 
STYPEX: RTS 
$3 EQUATES 
THT=11 
TCRLF=200 


#40, (SP) 
PC, STYPEC 
#7, SCHARCNT 
9$ 


(SP)+ 

2$ 

asTPsS 

STYPEC 

2(SP) ,a$TPB 
»2(SP) 


SCHARCNT 
STYPEX 
#12,2(SP) 
STYPEX 
(PC)+ 


vo 
o 


:25 PAGE 26 


SEQ 0029 


>;REPLACE TAB WITH SPACE 
;; TYPE A SPACE 

;;BRANCH IF NOT AT 

;; TAB STOP 

:;POP SPACE OFF STACK 

::GET NEXT CHARACTER 

>;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
; BRANCH IF 
+s NOT <CR> 

sEXIT 
: :BRANCH IF 

<LF> 
33 INC SPACE 

NT 


SRAAAAAEARAEARAEAARAAREAAAAAAAAAARAARATERAEAAAERAEAAAEAAEKREEEEKEEEAEEE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
s*THIS ROUTINE IS USED TO CHANGE A 16-BI1T BINARY NUMBER TO A 5-DIGIT 


+ *SIGNED DECIMAL (ASCII) 


: #BEFORE THE FIRST DIGIT OF 


*CALL 


STYPDS: 


1$: 


2$: 
3$: 


MOV 


TYPDS 


> *REPLACED WITH SPACES. 


NUM ,- (SP) 


RO,-(SP) 


SOTBL(RO) ,R1 
R1,R5 
4$ 


NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


>sPUT THE BINARY NUMBER ON THE STACK 
::;G0 TO THE ROUTINE 


;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 


: STACK 
3ST BLANK SWITCH AND SIGN 
4 THE INPUT NUMBER 
R IF INPUT IS POS. 

TERA KE THE BINARY NUMBER POS. 
: sMAKE THE ASCII NUMBER NEG. 

ZERO THE CONSTANTS INDEX 
 ;SETUP THE OUTPUT POINTER 
SET THE FIRST Sey bge TO A BLANK 


> FORM THIS BCD DIGIT 
;;BR IF DON 


CZKW 


WAG .P 


P11 


007106 
007110 


007240 
007242 


005202 
0 


000144 
000012 
000004 


000001 
000060 
000040 


000010 


177777 


007242 
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177777 


177776 


000002 000004 
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4$: ADD 


5$: ASLB 


7$: BIS 


8$: TSTB 


9$: CLRB 


SDTBL: 


SDBLK: .BLKW 


E 
19-APR-78 


9$ 
~1(SP) ,-2(R3) 
(R3) 


(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(S$P)+,R0 

, SDBLK 
2(SP>,4(SP) 
(SP)+, (SP) 


‘ 


3 
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SEQ 0030 
:; INCREASE THE BCD DIGIT BY 1 


;;A0D BACK THE CONSTANT 
>;CHECK IF BCD DIGIT=0 
:;FALL THROUGH IF 0 
;;STILL DOING LEADING 0'S? 
+ 3BR IF YES 


3MSD? 
: BR IF NO 
7: YES--SET THE SIGN 
7;MAKE THE BCD DIGIT ASCII 
7;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
:;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
3;JUST INCREMENTING 
;;CHECK THE TABLE INDEX 
::G0 DO THE NEXT DIGIT 
::G0 TO EXIT 
::GET THE LSD 
::GO0 CHANGE TO ASCII 
ae THE FIRST NON-ZERO? 
7: YES--SET THE SIGN FOR TYPING 
::SET THE TERMINATOR 
::POP STACK INTO R5 
::POP STACK INTO R3 
::POP STACK INTO R2 
:;POP STACK INTO R1 
::POP STACK INTO RO 
7:NOW TYPE THE NUMBER 
sz; ADJUST THE STACK 


;;RETURN TO USER 


FERAAAAHKAASAT SSAA TESA ASK AAAATHEAR ETEK AETHRARAARARARAEREAAAKARAEEE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT. 
;*STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


:*CALL: 

it MOV 
;# TYPOS 
;# BYTE 
;* BYTE 
;t 

;* 

= 


NUM ,- (SP) 


s:NUMBER TO BE TYPED 
;: CALL FOR TYPEQUT 
::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
::M=1 OR 0 
3: 1=TYPE LEADING ZEROS 
:;0=SUPPRESS LEADING ZEROS 


; *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;*$TYPOS OR $TYPOC 


> *CALL: 
: MOV 


NUM, -(SP) 


;; NUMBER TO BE TYPED 


F 3 
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CZKWAG.P11 10-APR-78 11:05 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0031 
—- ;* TYPON ::CALL FOR TYPEOUT 
1 :* 
1402 > *STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
1403 :*CALL: 
1404 :t MOV NUM, -(SP) : ;NUMBER TO BE TYPED 
Ler st TYPOC ;;CALL FOR TYPEOUT 
1407 007252 017646 000000 STYPOS: MOV a(SP),-(SP) :;PICKUP THE MODE 
1408 007256 116637 000001 007475 MOVB 1(SP),SOFILL ;;LOAD ZERO FILL SWITCH 
1409 007264° 112637 007477 MOVB (SP)+,SOMODE+1 ;:NUMBER OF DIGITS TO TYPE 
1410 007270 062716 000002 ADD #2, (SP) ; ADJUST RETURN ADDRESS 
1411 007274 000406 BR STYPON 
1412 007276 112737 000001 007475 $TYPOC: MOVB #1,SOFILL 3;SET THE ZERO FILL SWITCH 
1413 007304 112737 000006 007477 MOVB #6, SOMODE +1 :;SET FOR SIX(6) DIGITS 
1414 007312 112737 000005 007474 S$TYPON: MOVB #5,S0CNT :;SET THE ITERATION COUNT 
1415 007320 010346 MOV R3,-(SP) SAVE R3 
1416 007322 010446 MOV R4,-(SP) ;: SAVE R4 
1417 007324 010546 MOV R5,-(SP) :; SAVE R5 
1418 007326 113704 007477 MOVB SOMODE+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
1419 007332 005404 NEG R4 
1420 007334 062704 000006 ADD #6,R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
1421 007340 110437 007476 MOVB R4 , SOMODE ;:SAVE IT FOR USE 
1422 007344 113704 007475 MOVB SOFILL,R4 7:GET THE ZERO FILL SWITCH 
1423 007350 016605 000012 MOV 12(SP).R5 ::PICKUP THE INPUT NUMBER 
1424 007354 005003 CLR R3 7:CLEAR THE OUTPUT WORD 
1425 007356 006105 1$: ROL R5 ; ROTATE MSB INTO "'C’’ 
1426 007360 000404 BR 3$ ::G0 DO MSB 
1427 007362 006105 23: ROL RS :: FORM THIS DIGIT 
1428 007364 006105 ROL R5 
1429 007366 006105 ROL R5 
1430 007370 010503 MOV R5,R3 
1431 007372 006103 3$: ROL R3 3;GET LSB OF THIS DIGIT 
1432 007374 105337 007476 DECB SOMODE zi TYPE THIS DIGIT? 
1433 007400 100016 BPL 7 ::BR IF NO 
1434 007402 042703 177770 BIC #177770.R3 ::GET RID OF JUNK 
1435 007406 001002 BNE < Soe :: TEST FOR 0 
1436 007410 005704 TST R4 ; s SUPPRESS THIS 0? 
1437 007412 001403 BEQ 5$ fe F YES 
1438 007414 005204 4$: INC R4 ;:DON'T SUPPRESS ANYMORE 0'S 
1439 007416 052703 000060 BIS #'O.R3 :;MAKE THIS DIGIT ASCII 
1440 007422 052703 000040 S$: BIS a ::MAKE ASCII IF NOT ALREADY 
1441 007426 110337 007472 MOVB R3,8$ ;: SAVE FOR TYPING 
1442 007432 104400 007472 TYPE ,8$ : 360 TYPE THIS DIGIT 
1443 007436 105337 007474 7$: DECB SOCNT :: COUNT BY 1 
1444 007442 003347 BGT 2$ :;BR IF MORE TO DO 
1445 007444 002402 BLT 6% ;:BR IF DONE 
1446 007446 005204 INC R4 :: INSURE LAST DIGIT ISN'T A BLANK 
1447 007450 000744 BR 23 ::G0 DO THE LAST DIGIT 
1448 007452 012605 6$: MOV (SP)+,R5 : RESTORE RS 
1449 007454 012604 MOV (SP)+,R4 RESTORE R4 
1450 007456 012603 MOV (SP)+,R3 ; RESTORE R3 
1451 007460 016666 000002 000004 MOV 2(SP),4(SP) :;SET THE STACK FOR RETURNING 
1452 607466 012616 MOV (SP)+, (SP) 
1453 007470 000002 RTI ; ;RETURN 
1454 007472 000 8$: -BYTE 0 : ;STORAGE FOR ASCII DIGIT 
1455 007473 000 -BYTE 0 : TERMINATOR FOR TYPE ROUTINE 
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1456 
1457 
1458 
1459 


007474 
007475 
007476 


007500 


007514 
007516 
007522 


007630 


000 
000 
000000 


104400 
010046 
005000 
153700 
001004 


013746 
104401 


000207 


013046 
104401 
005710 
001770 
104400 
000771 
020040 
007634 


001231 


001114 


001116 


001236 
007552 


001231 
007570 


001231 


001231 


007630 
000 
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BINARY TO OCTAL (ASCII) AND TYPE 
SOCNT: .BYTE 0 :;OCTAL DIGIT COUNTER 
SOFILL: .BYTE 0 ;;ZERO FILL SWITCH 
SOMODE: .WORD 0 ;;NUMBER OF DIGITS TO TYPE 


FRASER REA ATAATA TEETER EEE RETREAT 


~SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


>*THIS ROUTINE USES THE “ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 
>*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'’ 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


TYPE » SCRLF 2 RETURN’ & “LINE FEED’’ 


MOV RO,-(SP) 73 SAVE 

CLR RO ::PICKUP THE ITEM INDEX 

BISB a*SITEMB,RO 

BNE 1$ ::1f ITEM NUMBER IS ZERO, JUST 


3; TYPE THE PC OF THE ERROR 
7; SAVE SERRPC FOR TYPEOUT 
; ERROR ADDRESS 


MOV SERRPC,-(SP) 


TYPOC ;;G0 a ASCIICALL DIGITS) 
BR 6$ ;:GET OUT 
1$ DEC RO ;;ADJUST THE INDEX SO THAT IT WILL 


ASL RO i WORK FOR THE ERROR TABLE 
ASL RO 
ASL 


RO 
ADD #SERRTB,RO ::FORM TABLE POINTER 
MOV (RO)+,2$ > PICKUP “ERROR MESSAGE" POINTER 
BEQ 3$ ;;SKIP TYPEOUT IF NO POINTER 


TYPE +3 TYPE THE ““ERROR MESSAGE"’ 


2$: -WORD 0 ::"ERROR MESSAGE’’ POINTER GOES HERE 
TYPE »SCRLF >: "CARRIAGE RETURN’ & “LINE FEED" 
38: MOV (RO)+,4$ ::PICKUP "DATA HEADER" POINTER 
BEQ 5€ :;SKIP TYPEOUT IF 0 
TYPE ;; TYPE THE “DATA HEADER" 
4$: -WORD 0 :2'‘DATA HEADER’’ POINTER GOES HERE 
TYPE , SCRLF :7""CARRIAGE RETURN’ & “LINE FEED" 
5$: MOV (RO) RO :;PICKUP "DATA TABLE’’ POINTER 
BNE 7$ 3:G0 TYPE THE DATA 
63: MOV (SP)+,RO : RESTORE RO 
TYPE ,SCRLF :: "CARRIAGE RETURN’ & ‘LINE FEED" 
. RTS PC : sRETURN 


MOV a(RO)+,-(SP) :;SAVE @(RO)+ FOR TYPEOUT 
TYPOC ::G0 TYPE--OCTAL ASCIICALL DIGITS) 


TST (RO) 3:18 THERE ANOTHER NUMBER? 
BEQ 6$ ;:;BR IF NO 
TYPE ,8$ s; TYPE TWO(2) SPACES 
BR $ ;; LOOP 
8$: saenie 7° 4 :;TWO(2) SPACES 
EVEN 


e 
SPAS PSSRRRRERERRARRERRRRARASRSRR RARE EA RR SAR RR EASE REESE RSS SESS SE SS | 


-SBTTL ERROR HANDLER ROUTINE 
s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 


(SERRTB), 


SEQ 0032 


CZKWA-G LINE FREQUENCY CLOCK PROGRAM 
CZKWAG.P11 


=?’ od 
MMVIMAUMAWMIAAWAWA 
WMO OMAP wn 


Nm 


007634 
007634 


010036 


010040 


010637 
162737 
016637 
005037 
113737 


104400 
005777 


001402 
013716 


000002 


010046 


10-APR-78 11:05 


001174 
000004 
000002 
001172 
001102 
001160 
001103 


001102 
002000 
001224 
001112 
001116 
000002 
171152 
020000 


007500 
001231 


171144 


006232 


001000 


001110 
001222 


001222 


001174 
001176 


001172 


171232 
71222 


001116 
001114 
171162 


000042 


171120 


MACY11 30A(1052) 
ERROR HANDLER ROUTINE 


:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
:*AND GO TO SERRTYP ON ERROR 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


H 3 
19-APR-78 14:25 PAGE 30 


SEQ 0033 


:*SW15=1 HALT ON ERROR 
:*S$W13=1 INHIBIT ERROR TYPEOUTS 
>*SW10=1 BELL ON ERROR 
:*Sw09=1 LOOP ON ERROR 
>*CALL 
;* ERROR N ;;ERROR=EMT AND N=ERROR IJ TEM NUMBER 
SERROR: 
MOV SP, $REG6 ;GET THE CURRENT STACK POINTER VALUE 
SUB #4,$REG6 ;RESTORE IT TO ITS ‘PRE ERROR TRAP’’ VALUE FOR PR 
MOV 2(SP),$REG7 ;GET THE PS OFF OF THE STACK 
CLR SREGS :PREPARE ‘‘$REGS*’ TO HOLD THE TEST # 
MOVB STSTNM,SREGS :TEST # IS HELD IN THE LOW BYTE OF ‘‘TSTNM’’ 
MOV RO, SREGO :MOST OF THE TIME RO HAS GOOD STUFF IN IT ALSO 
7$: INCB SERFLG :;SET THE ERROR FLAG 
BEQ 7$ :;DON'T LET THE FLAG GO TO ZERO 
MOV STSTNM,@DISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #B1T10,aSwR :;BELL ON ERROR? 
BEQ 1$ ;:NO - SKIP 
TYPE , SBELL 7 :RING BELL 
1$: INC SERTTL ;; COUNT THE NUMBER OF ERRORS 
MOV (SP) ,SERRPC ::;GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 
MOVB @SERRPC.SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #B1T13,aSwWR 7: SKIP TYPEOUT IF SET 
BNE 20$ ::SKIP TYPEOUTS 
JSR PC ,SERRTYP ;:GO TO USER ERROR ROUTINE 
TYPE , SCRLF 
20$: 
2$: TST aswR 3: HALT ON ERROR 
BPL 31$ 7: SKIP IF CONTINUE 
HALT 7: HALT ON ERROR! 
31$: CMP #SENDAD ,a#42 7 ;ACT=-11 AUTO-ACCEPT? 
BNE 3$ + ;BRANCH IF NO 
HALT ; YES 
38: a alli :$LOOP — SWITCH SET? 
MOV SLPERR, (SP) ;:FUDGE RETURN FOR LOOPING 
4$: TST SESCAPE +> CHECK FOR AN ESCAPE ADDRESS 
BEQ 5$ :BR IF NONE 
i. MOV SESCAPE, (SP) :: FUDGE RETURN ADDRESS FOR ESCAPE 
RTI : ;RETURN 


SSE AEA AA E EE HRAAETETEEEA ARETE EAAAAARRERAARRERERERERED 


. SBTTL 


STRAP: 


TRAP DECODER 


s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


MOV 


RO,-(SP) 


s; SAVE RO 


I 3 
CZKWA-G LINE FREQUENCY CLOCK PROGRAM MACY11 30A(1052) 19-APR-78 14:25 PAGE 31 


CZKWAG.P11 10-APR-78 11:05 TRAP DECODER SEQ 0034 
1568 010042 016600 000002 MOV 2(SP),RO 7:GET TRAP ADDRESS 
1569 910046 005740 TST -(RO) :;BACKUP BY 2 
1570 010050 111000 MOVB (RO) ,RO +3GET RIGHT BYTE OF TRAP 
1571 010052 006300 ASL RO ;POSITION FOR INDEXING 
1572 010054 016000 010062 MOV STRPAD(RO),RO +: INDEX TO TABLE 
rTod 010060 000200 RTS RO ;:GO TO ROUTINE 
1575 
He a. -SBTTL TRAP TABLE 
1 
1578 :*THIS TABLE CONTAINS THE STARTING ADDRESSES GF THE ROUTINES CALLED 
1579 :*BY THE ‘“‘TRAP’’ INSTRUCTION. 
1580 
1581 ‘ ROUTINE 
1582 . - so 
1583 010062 STRPAD: 
1584 010062 006612 STYPE 7: CALL=TYPE TRAP+0(104400) TTY TYPEOUT ROUTINE 
1585 010064 007276 STYPOC ;;CALL=TYPOC TRAP+1(104401) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
1586 010066 007252 STYPOS ;;CALL=TYPOS TRAP+#2(104402) TYPE OCTAL NUMBER (ND LEADING ZEROS) 
1587 010070 007312 STYPON ;;CALL=TYPON TRAP+3(104403) TYPE OCTAL NUMBER (AS PER LAST CALL) 
1588 010072 007026 STYPDS ;;CALL=TYPDS TRAP*+4(104404) TYPE DECIMAL NUMBER (WITH SIGN) 
1589 SRAERAREAAAAEAAAARARATE EKER REREERETAAAEREAAEEKEEEA EERE EEE 
1590 
ad -SBTTL POWER DOWN AND UP ROUTINES 
1593 :POWER DOWN ROUTINE 
1594 010074 012737 010236 000024 $PWRDN: MOV #SILLUP ,@#@PWRVEC ;;:SET FOR FAST UP 
1595 010102 012737 000340 000026 MOV #340, a#PURVEC+2 73PRIO:7 
1596 010110 010046 MOV RO,-(SP) 7;PUSH RO ON STACK 
1597 010112 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
1598 010114 010246 MOV R2,~-(SP) :3;PUSH R2 ON STACK 
1599 010116 010346 MOV R3.-(SP) ::PUSH R3 ON STACK 
1600 010120 010446 MOV R4,~- (SP) ::PUSH R4& ON STACK 
1601 010122 010546 MOV R5,~-(SP) :2:PUSH RS ON STACK 
1602 010124 013746 010456 MOV POWPUS ,-(SP) 7:PUSH POWPUS ON STACK 
1603 010130 013746 010460 MOV POWPOP ,-( SP) ;:PUSH POWPOP ON STACK 
1604 010134 013746 010254 MOV POWMES ,-(SP) ::PUSH POWMES ON STACK 
1605 010140 013746 001672 MOV T0001 ,-(SP) ::PUSH T0001 ON STACK 
1606 010144 010637 010242 MOV SP ,SSAVR6 s:SAVE SP 
1607 010150 012737 010162 000024 MOV #SPWRUP -@FPWRVEC ;;SET UP VECTOR 
1608 010156 000000 HALT 
yr 010160 000776 BR 72 : HANG UP 
1611 ;POWER UP ROUTINE 
1612 010162 013706 010242 SPWRUP: MOV SSAVR6,SP :;GET SP 
1613 010166 005037 010242 CLR SSAVR6 :;WAIT LOOP FOR THE TTY 
1614 010172 005237 010242 1$: INC SSAVR6 s;WAIT FOR THE INC 
1615 010176 001375 BNE 1$ :;0F <POWPUS>,<POWPOP>.<POWMES>.<TCOO1> WORD 
1616 010200 012605 MOV (SP)+,R5 :;POP STACK INTO R5 
1617 010202 012604 MOV (SP)+,R4 :;POP STACK INTO R4 
1618 010204 012603 MOV (SP)+,R3 :;POP STACK INTO R3 
1619 010206 012602 MOV (SP)+,R2 ::;POP STACK INTO R2 
1620 010210 012601 MOV (SP)+,R1 ++ POP STACK INTO + 
Hy 8 Baeet 012600 MOV (SP)+,RO POP STACK INTO R 


1622 010214 012737 010074 000024 MOV #SPWRON ,@#PWRVEC ;;SET UP THE POWER DOWN VECTOR 
| 1623 010222 012737 000340 000026 MOV #340, a#PWRVEC+2 :;PRIO:7 


CZKWA-G LINE FREQUENCY 
10-APR-78 


CZKWAG.P11 


010230 


010252 
010254 


010366 


010371 
010376 
010404 
010412 
010420 
010426 
010432 
010440 
010446 
010454 


010456 


010622 


104400 


000122 
005015 


005015 
124 


042105 
047514 


000040 


CLOCK PROGRAM 


11:05 


047520 


042522 
044524 
052106 
050040 
043040 
042522 


041412 
043455 
020105 
042525 
046103 
042524 

000 


040522 


051107 


020040 


020040 
041520 


020040 


042527 


052123 
043516 
051105 
053517 
040511 
005015 


045532 
046040 
051106 
041516 
041517 
0521235 


050120 


047511 


051101 
050040 
046501 


020040 


020040 
020051 


020040 


MACY11 30A(1052) 


J 3 
19-APR-78 14:25 PAGE 32 


POWER DOWN AND UP ROUTINES 


SPWRMAG: 
SILLUP: 


TYPE 
. WORD 
RTI 
HALT 
BR 


SSAVR6: 0 


SPOWER: 


POWMES: 


STMES: 


TRPMES: 


TRPM2S: 


EVEN 


POWPUS: 
POWPOP: 


EM]: 


DH1: 


EVEN 


~ASCIZ 


sREPORT THE POWER FAILURE 
;;POWER FAIL MESSAGE POINTER 


7; THE POWER UP SEQUENCE WAS STARTED 
7-2 i; BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 
<15><12>''POWER'' 


SPOWER 


EVEN 
eASCIZ <15> <12> "RESTARTING AFTER A POWER FIALURE’’ <15> <12> <12> 


~ASCIZ 


eASCIZ 


~ASCIZ 


WORD 
WORD 
-ASCTIZ 


~ASCIZ 


<15><12><12>""CZKWA-G LINE FREQUENCY CLOCK TEST‘'’<15><12> 


“TRAPPED TO LOC 4 FROM LOCATION “’ 


“RESTARTING PROGRAM’ 


. LKS 


(PC) (PS) (SP) TEST# WAS $/B " 


SEQ 0035 


CZKWA-G 


LINE 
p 


CZKWAG.P11 


ee ee ed we eed od aed 


aie lal at ~NN™N 


Me OOONANP WR 


“IN 
MN 
iv] 


010624 


010740 


010746 
010754 


SAQONOoOSa Of 


TR) td ath td at ed aed at edt etd 
Pb Lee N= 


0 


011270 


FREQUENCY 
10-APR-78 


001116 
001172 


024523 
0601116 


052040 


024503 
050050 
020040 
020040 
052123 
046050 
020040 


001176 
177546 


041517 


024040 
020040 


001176 
177546 


041517 


20040 
020051 
051505 


PROGRAM 


001174 
001124 
020113 


050125 
020040 


001174 


020113 


000040 
001174 


020113 


044524 
020051 


021524 


“= we 
MACY11 30A(1052) 19-APR-78 14:25 PAGE 33 
POWER DOWN AND UP ROUTINES 


SERRPC .SREG7 ,SREG6,SREGS,LKS,$GDDAT 


DTI: 


0 
EM2: 


DH2: 


.EVEN 
DT2: 


0 
EM3: 


DH3: 


EVEN 
DT3: 


0 
EMG: 


DH4: 


~ASCIZ 


ASCIZ 


“CLOCK FAILED TO INTERRUPT"’ 


“*(PC) 


(PS) 


(SP) 


SERRPC,.SREG7,$REG6,$REGS,LKS 


~ASCIZ 


~ASCIZ 


“CLOCK INTERRUPTED WHEN THE PROCESSOR PRIORITY WAS TOO HIGH’’ 


(PC) 


(PS) 


(SP) 


SERRPC ,SREG7 ,SREGS,SREGS,LKS 


~ASCIZ 


-ASCTIZ 


“CLOCK GIVES UNEQUAL # OF PULSES OVER TWO EQUAL PERIODS OF TIME" 


(PC) 


(PS) 


(SP) 


TESTA 


TEST# 


TESTA 


(LKS) 


(LKS) 


1ST 


2NnD''<15><12>°"" 


SEQ 0036 


CZKWA-G LINF FREQUENCY 
10-APR-78 11:05 


CZKWAG.P11 


011276 


011372 


011376 
011404 


011530 
011536 


011646 
011654 


01 
011742 


020040 


052123 


CLOCK PROGRAM 


030440 


001176 
001162 


020123 


040440 
051523 


001176 
001120 


047516 


020040 


001176é 
177546 


047117 


041501 


052123 


044522 


001174 


001164 


042522 


001174 


051440 


001174 


020107 


020113 


. 5 
MACY11 30A(1052) 19-APR-78 14:25 PAGE 34 
POWER DOWN AND UP ROUTINES 


EVEN 
DT4: 


0 
EMS: 


DHS: 


EVEN 
DTS: 


0 
EM6: 


DH6: 


EVEN 
DT6: 


0 
EM7: 


SERRPC ,SREG7, $REG6,$REGS, SREG1, $REG2 


-ASC1Z ""LKS REGISTER RESPONDS TO ANOTHER ADDRESS”’ 
wASCIZ ‘(PC) (PS) (SP) TEST#  ADDRESS*’ 

SERRPC,SREG7, SREG6, SREGS, SGDADR 

-ASCIZ “A NO SACK TIMEOUT HAS OCCURED" 

eASCIZ ""(PC) (PS) (SP) TEST# (LKS) = °"' 


SERRPC ,SREG7, SREG6,SREGS.LKS 


~ASCIZ ‘WRONG CONDITION CODES WERE PUT ONTO STACK BY INTERRUPT" 


SEQ 0037 


mM 3 
CZKWA-G LINE FREQUENCY CLOCK PROGRAM MACY11 30A(1052) 19-APR~78 14:25 PAGE 35 
CZKWAG.P11 10-APR-78 11:05 POWER DOWN AND UP ROUTINES SEQ 0038 


1792 011750 054502 044440 052116 
1793 011756 051105 052522 052120 


1795 011765 050 041520 020051 DH7: ~ASCIZ ‘*(PC) (PS) (SP) TEST# CC WAS CC S/B"’ 


1802 012036 020103 027523 000102 


~EVEN 
1804 012044 001116 001176 001174 ODT7: SERRPC ,SREG7,SREG6,$REG5S ,BUF1,$GDDAT 
he 012052 oS bAL: 000776 001124 


000 0 
1807 012062 051127 047117 020107 EM10: .ASCIZ ‘WRONG PC PUT ONTO THE STACK BY AN INTERRUPT’ 


012126 042524 051122 050125 
012136 050050 024503 020040 DH10: .ASCIZ ‘‘(PC) (PS) (SP) TEST# @(SP)WAS @(SP)S/B 


1822 012210 050123 051451 041057 

1823 012216 020040 000 

1824 012222 - EVEN 

1825 012222 001116 001176 001174 DT10: SERRPC,SREG7,SREG6,S$REGS.BUF2,$GDDAT 
1826 012230 po 000774 001124 


0 
1828 012240 051124 042531 0201046 EM11: .ASCIZ ‘“‘TRYED TO ACCESS THE LkS REGISTER, AND TRAPPED" 


020054 
1834 012304 020104 051124 050101 


000104 
1836 012316 050050 024503 020040 DH11: .ASCIZ ‘(PC) (PS) (SP) TEST# 
1837 012324 020040 050050 024523 
1838 012332 020040 02004C 051450 
1839 012340 624520 020040 020040 
Ho 012346 042524 052123 000043 ite 
1842 0123554 001116 001176 001174 DT11: SERRPC,$REG7,$REG6,$REG5 
1843 012362 001172 
1844 012364 000000 SAVE: 0 SAVE @#157546 IN TEST 14 
1845 012366 600000 0 
1846 000001 END 


CZKWA-G LINE FREQUENCY oy PROGRAM 


CZKWAG.P11 

AQ0004 002104 
A000S5S 002172 
A0006 002302 
A0007 002434 
A0010 002614 
A0011 002716 
A0012 003102 
A0013 003172 
A0014 003560 
0015 003700 
0016 004016 
0017 004134 
0020 004252 
0021 004370 
0022 004526 
0023 004574 
0024 004716 
0025 005026 
0026 005200 
0027 005314 
0030 005454 
0031 005542 
0032 005674 
0033 0606032 
BITO = 000001 
BITOO = 000001 
BIT01 = 000002 
BITO2 = 000004 
81T03 = 000010 
BIT04 = 000020 
3IT05 = 000040 
831706 = 000100 
BITO7 = 000200 
BIT08 = 000400 
BITO9 = 001000 
BIT? = 000002 
81T10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
31T14 = 040000 
31T15 = 100000 
BIT2 = 000004 
BITS = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
31T7 = 000200 
BIT&8® = 000400 
BIT9 == 001000 
BPTVEC= 000014 
BUF1 = 000776 
BUF2 = 000774 
80005 002210 
30006 )3=—._: 002320 
80007 §=«002452 


ea ell 


_" 
Ou PN et et ot ot es AY 
wd NM NWEUONDWOO— 


— es 


1066* 
1067* 
4144 
4414 
4718 


MACY11 30A(1052) 


N 
19-APR-78 


3 
14:25 PAGE 37 


CROSS REFERENCE TABLE -~ USER SYMBOLS 


1207 
1215 


1075 _— 


1100* 


1550 


1099« 
1108 


1804 
1825 


SEQ 0039 


CZYMA-G LINE FREQUENCY oyeee PROGRAM 


CZKwAG.P11 
80010 00.63 
80011 002734 
30012 003120 
30013 003210 
30014 003572 
B0015 003712 
30016 004030 
30017 004146 
30020 =. 004264 
30021 004402 
300235 004612 
30025 005044 
30030 86005472 
30031 005560 
30032 86005712 
30033 006050 
C0007 002462 
C0010 002642 
C0011 003014 
C0013 003224 
C0025 005070 
C0031 005614 
0032 005756 
C0033 006114 
DDISP = 177570 
DH1 010543 
DH10 012136 
DH11 012316 
DH2 010674 
DHS 011055 
DHS 011241 
DHS 011465 
DH6 011610 
DH? 011765 
DISPLA 001140 
DISPRE 000174 
DSWR 177570 
TI 010624 
DT 10 012222 
DT 11 012354 
T2 010746 
TS 011126 
DT4 011376 
T5 011536 
»T6 011662 
17 012044 
0007 8 002474 
90010 002654 
90011 03032 
90013 = 003242 
0031 05632 
MIVEC= 000030 
m1 010462 
M10 012062 
M11 012240 
M2 010642 


10-APR-78 


16834 


MACY11 30A(1052) 


B 
19-APR-78 


& 
14:25 PAGE 38 


CROSS REFERENCE TABLE -- USER SYMBOLS 


1006 


1110 


1236* 


310* 


1531* 


SEQ 0040 


C 4 
CZKWA-G LINE FREQUENCY ae PROGRAM MACY11 30A(1052) 19-APR-78 14:25 PAGE 39 


CZKWAG.P11 
EM3 010762 
EM4 011142 
EMS 011414 
EM6 011552 
M7 011676 
RRVEC= 000004 
E0001 001730 
0002 001776 
0003 002042 
£0004 002116 
0005 002204 
0006 002314 
0007 002446 
0010 002626 
0011 002730 
0012 003114 
0013 003204 
0014 003570 
0015 003710 
0016 004026 
0017 004144 
0020 004262 
0021 004400 
E0022 004524 
0023 004606 
E0024 004736 
0025 005040 
0026 005220 
0027 005346 
0030 005506 
E0031 005554 
E0032 005706 
0033 006044 
10006 002342 
10007 002470 
10010 002650 
10012 003134 
10013 003236 
10023 004630 
10025 005064 
10031 005626 
10033 006124 
1005 002226 
1011 003026 
20007 002502 
20010 002662 
20011 003040 
20013 003334 
20025 005100 
20031 005640 
30013 003366 
40013 003444 
0013 003262 
NS = eeeeee 
0013 003276 
0013 003322 


CROSS REFERENCE TABLE -- USER SYMBOLS 


1198 1199* 1201* 1204+ 
64 


892a 
9528 


10094 
1033 


557# 


632 

1584 1585 1586 1587 1588 
6314 

642 


SEQ 0041 


D 4 
CZKWA-G LINE FREQUENCY te PROGRAM MACY11 30A(1052) 19-APR-78 14:25 PAGE 40 


CZKWAG.P11 10-APR-78 11:05 CROSS REFERENCE TABLE -~ USER SYMBOLS SEQ 0042 
IOTVEC= 000020 1294 307* 308* 
10001 001722 3448 
10014 03552 6954 
10015 003672 7198 
10016 004010 7434 
10017 004126 7674 
10020 004244 7914 
10021 004362 8154 
10022 004506 8414 
100235 004612 8664 
10026 005206 9498 
0013 003340 640 6454 
START 001400 153 2904 
0013 003354 6494 652 
LKS = 177546 1374 344% 358 372 385* 387 406* 408 415* 416 433* 435 442* 


84 8 
905* 911 921* 925 944% 946+ 950 966* 975* 976* 977 988* 997* 
999* 1007* 1019* 1021 1034* 1036 1056* 1058 1069* 1089* 1091 1102* 1117* 
1680 1696 1717 1782 


L0013 003372 650 6554 
0013 003420 6614 666 
OP = =_—« 000240 1384 
0013 003434 662 6654 
PIRQ = 177772 41s 
PIRQVE= 000240 1354 
POWMES 010254 1604 16334 
POWPOP 010460 1603 16604 
POWPUS 010456 1602 16594 
PRO =. =-—« 000000 584 
PRT = 000040 598 
PR2 = 000100 604 
PRS == 000140 614 
PR4 = =-—« 000200 624 
PRS = =_-: 000240 634 497 
PR6 == 000300 644 544 
PR7 = =—s_- =_-—« O10 340 654 402 429 598 689 713 737 761 785 809 835 882 906 
938 967 1029 
PS = 177776 384 39 497* 544% 
SWS = (177776 398 
PWRVEC= 000024 1304 313* 314* 1594* 1595* 1607" 1622 1623+ 
ESVEC= 000010 1254 
001716 342 3438 
0002 001756 355 3568 
0003 002032 370 3714 
002070 383 7844 
0005 002164 401 4064 
002274 428 4334 
0007 002412 456 459" 
0010 002544 491 4944 
0011 002710 531 5328 
0012 003074 573 5748 


20013 003140 5964 656 


eee rn ren nn nn rn nner rereeeeeeeeee creer sss sss eee eee — 


E 4 

CZKWA-G LINE FREQUENCY soeke PROGRAM MACY11 30A(1052) 19-APR-78 14:25 PAGE 41 
CZKWAG.P11  10-APR-78 11:05 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0045 
ROO14 003542 683 6934 

ROO1S 003662 711 7178 

ROO16 004000 735 7418 

20017 004116 759 765# 

20920 004234 783 7898 

ROO21 004352 807s «8134 

ROO22 004476 833 = 839" 

20023 004566 856 8578 
RO024 004676 878 4 8=—s_ «BB 1A 

20025 005006 902 9054 

20026 005162 937 944s 

20027 005266 963 9668 
ROO3O 005406 990 9914 

20031 005534 1018 10194 

20032 005666 1055 1056s 

20033 006024 1088 10894 

21013 003156 6024 

22013 003210 6134 

23013 003306 635# 

24013 003340 6468 
SAVE 012364 688 701 18448 
STACK = 001100 354 
START 001450 3014 1175 
STKLMT= 177774 4O# 
STMES 010322 300 =: 16408 | 
SWR 001136 190# 324 326 1193 1207 1209 1215 1222 1532 1539 1544 1550 
SWREG 000176 150# 326 
SwO = 000001 934 

wOO = 000001 838 93 
sw01 = 000002 824 92 
SwO2 = 000004 818 91 
$wO3 = 000010 808 90 

w04 = 000020 794 ~=—s«B9 
sw0S5 = 000040 788 Ba 

w06 = 000100 778 87 
SwO7 = 000200 76h «BG 

wO8 = 000400 758 85 
sw09 = 001000 748 84 
Sw1 = 000002 920 
SW10 = 002000 734 
Sw11 = 004000 728 
SW12 = 010000 718 
SW13 = 020000 70# 
SW14 = 040000 694 
SW15 = 100000 684 
SWw2 = 000004 914 
SW3 = 000010 90% 
SW4 = 00002 89" 
SWS = 00004 884 

SW6 6 =_:090100 878 

S¥7 = 00020 864 

SWB = 000400 854 

sw9 = 001000 844 

BITVE= 000014 1264 

CRLF = 000200 1272-13118 

THT = 000011 1270 =: 1310# 
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CZKWAG.P11 
TKVEC = 000060 
TPVEC = 000064 
TRAPVE= 000034 
TRAPO 006266 
TRPMES 010371 
TRPM2S 010432 
TRIVEC= 000014 
TYPOS = 104404 
TYPE = 104400 
TYPOC = 104401 
TYPON = 104403 
TYPOS = 104402 
T0001 001672 
T0002 001732 
T0003 002000 
T0004 002044 
T0005 002120 
T0006 §=002230 
TOOO7 002344 
TOO1O §=«002504 
TOO11 002664 
T0012 003042 
T0013) §=©003136 
T0014 003460 
T0015 §=©003612 
T0016 §=©003730 
T0017 004046 
T0020 38004164 
T0021 004302 
T0022 004420 
T0025 004534 
T0024 004632 
T0025 004740 
T0026 §=005102 
T0027 005222 
T0030 005350 
T0031 §=©005510 
TOO32 005642 
T0033 006000 
T0034 006134 
ORD 001234 
SBDADR 001122 
BDDAT 001126 
BELL «(001224 
CHARC 007022 
CMTAG 001100 
CM1 = 000010 
SCM2 = 000020 
SCMS = 000010 
CM4 = 000010 
CRLF 001231 
SOBLK 007242 
DOAGN 006242 


007232 


10-APR-78 11:05 


13764 


9334 


10528 


998+ 


13078 
315 
2054 
2054 


2134 
1313 


1372 


5288 


668 


CROSS REFERENCE TABLE -- USER SYMBOLS 


453 489 529 571 830 853 


1442 1468 1485 1487 1490 1492 


558 

6814 

1659 1660 

317 

2078 2084 2098 2104 

2078 2088 2094 2104 

2154 2168 2174 2188 

1487 1492 1496 1542 1558 


1496 


SEQ 0044 


1503 





oe 
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CZKWAG.P11 10-APR-78 11:05 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0045 
SENDAD 006232 160 1150" 1547 
SENDCT 006200 315 11394 
SENDMG 006246 1141 11564 
BENULL §=006263 1144 11594 
EOP 006144 11294 
EOPCT 006172 315* 11364 1140 
SERFLG 001103 1754 8 1182 1211 1213 1219* 1240 1529* 1558 
SERMAX 001115 1814 318* 1213 1235* 1240 
SERROR 007634 309 1522a 
ERRPC 001116 ey +: 1536* 15357* 1538 1558 1680 1696 1717 1748 1766 1782 1804 
SERRTB 001236 2418 1482 
ERRTY 007500 14674 =1541 
ERTTL 001112 1798 . 1535% 1558 
ESCAP 001222 2194 317* 8 812354* 1553 1555 1558 
SFILLC 001154 1984 1279 1313 
FILLS 001153 1974 #81313 
GDADR 001120 1834 684* 688 695* 701* 712* 719+ 725% 736* 743* 749% 760* 767* 
773* 784% 791* 797* 808+ 815* 821* 834% 841* 1766 
SGDDAT 001124 1854 357% 369* 384* 400* 427* 455+ 570* 682* 710* 734* 758* 782+ 
806* 832* 855* 867 877+ 890 901* 936* 950 962* 977 989* 1077* 
1110* 1680 1804 1825 
GET42 006222 11454 
SHD = 000000 18 
SICNT 001104 176# = 1226* 1227 1229* 1239 
SILLUP 010236 1594 16274 
ITEMB 001114 1804 1471 1538* 1558 
LF 001232 2234 1313 1558 | 
LPADR 001106 1778 319* 342* 355* 370* 383+ 401* 428* 456* 491* 531* 573* 602* 
613* 635* 646* 656* 683+ 711* 735* 759* 783* 807* 833* 856* 878* 
902* 937* 963* 990* 1078 1055* 1088" 1217* 1232* 1237 1239 
SLPERR 001110 1784 320* 1217 1253* 1239 1552 
SMAIL = settee 331 1232 1264 1544 
MXCNT 006610 1230 12394 
NULL 001152 1964 1281 1313 
DCNT 907474 1414* 1443* 14568 
DMODE 007476 1409* 1413* 1418 1421* 14352* 14588 
SOVER 906574 1194 1210 1218 1228 12564 
PASS 001100 173# = =6©11335* 1134* 8 1142 1156 1224 1240 
POWER 010244 1625 16304 
SPWRON 010074 315 15944 1622 
SPWRAG 010232 16254 
PWRUP 010162 1607 16124 
QUES 001230 2214 1313 1558 
ROCHR= tteeee | 1589 
RODEC= *teee2 1589 
ROLIN= *t2ee¢ UJ 1589 
SRDOCT= teeeete | 1589 
REGAD 001156 200% 
REGO 001160 2028 1528s 
SREG1 001162 2034 669* 1748 
REG2 001164 2044 670* 1748 
REGS 001166 2054 
REGS (001170 2064 
REGS 001172 2078 1526* 1527* 1680 1696 1717 1748 1766 1782 1804 1825 1842 
SREG6 001174 208# 1523* 1524% 1680 1696 1717 1748 1766 1782 1804 1825 1842 


CZKWA-G 


LINE FREQUENCY CLOCK PROGRAM 


CZKWAG.P11 


OF ILL 
S4OCAT= 


001176 


wttett 
eetett 
010242 
006340 


167400 


000000 
001220 
001144 
001142 


‘001200 


0012C2 
007204 
001206 
001210 
001212 
001214 
001216 
000000 
001150 
001155 
001146 
010040 


= 990005 


y10062 
001102 
zeeerer 
007026 
006612 
006756 
007024 
007276 
007312 
007252 
006352 
007475 


eteeetet 


012370 


U 
U 


10~APR-78 11:05 


1525* 


1680 


1613* 
309 


1696 


1614* 


311 


15878 
1209 


12584 
12978 


14578 


1598 
1313 


1717 


16294 
313 


15884 
1231* 


1575 
1298 


1614 
13804 


1748 


315 


15894 
1236 


1584 


1634 
15064 


1766 


1240 


1718 
1558 
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CROSS REFERENCE TABLE ~-- USER SYMBOLS 


1782 


317 


28 
1156 
1220 
1544 


1527 


224 
1609 


1804 1825 1842 

319 1131 1547 

29 218 219 220 
1183 1184 1185 1186 
1221 1222 1233 1236 
1550 1558 1626 
1531 1558 


2894 305 319 320 
17478 


1628 16584 16954 


316 
1187 
1239 


1156 
1765# 


CZKWA-G LINE FREQUENCY CLOCK PROGRAM 


CZKWAG.P11 

ADITAG 1644 
COMMEN 14 
ENDCOM A 
FRROR 364 
538 

818 

1078 

ESCAPE 14 
ETPRI 14 
ULT 14 
EWTST 4 
POP 14 
PUSH 14 
REPORT 14 
SAVE 1507# 
SCOPE 378 
755 

SETPRI 14 
967 

SE TRAP 84 
960 

SETTRA 1575# 
SETUP 4 
SKIP 14 
SLASH 14 
SPACE 1364 
STARS 14 
SWRSU 14 
TRATRP 15758 
TYPBIN 14 
TYPDEC 14 
TYPNAM 14 
YPNUM 14 
YPOCS # 
TYPOCT 14 
TYPTXT 14 
AITLK 84 
1035 

SSC%RE 1644 
SCMTM 1644 
SESCA 14 
SSNEWT 14 
SSSET 15754 
SSSKIP 14 
~EQUAT 14 
. HEADE 14 
KT11 14 
. SETUP 14 
- SWRLO 84 
- $ACT1 14 
. SAPTB 14 
. SAPTH 14 
« SAPTY 4 
~ SASTA 14 
- SCATC lf 


8# 


10-APR-78 11:65 


154 


141 
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CROSS REFERENCE TABLE -- MACRO NAMES 


164 


504 


205 
213 


1588 


0 Or & 
aw’ aed ad 
mon 


224 


533 


206 


214 


1120 


352 


207 
215 


1176 


575 


208 
216 


446 
653 
952 


1240 


605 


209 
217 


1313 


615 


569 
1015 
809 


830 


1381 


638 


595 
1052 
835 


853 


1459 


648 


681 
1085 
881 


875 


1507 


858 


707 
1116 
906 


899 


1558 


910 


SEQ 0047 


521 
794 
1062 


731 
1130 
938 


934 


1589 


1020 


CZ2KWA-G LINE FREQUENCY CLOCK PROGRAM 


CZKWAG.P11 


10-APR-78 11:05 


-SCMTA 14 
- SDB2D 14 
. 30B20 14 
-SDI1V 4 
. SEOP 14 
. SERRO 14 
. SERRT 14 
. SAULT 14 
. SPOWE 14 
. SRAND 14 
. SRDDE 14 
. SRDOC 14 
- SREAD 14 
~ $R2AZ 14 
. SSAVE ini 
. $SB2D if 
. $SB20 14 
. 8SCOP 14 
-SSIZE 14 
- SSUPR lf 
. STRAP 14 
- STYPB 14 
-STYPD 14 
- STYPE id 
. STYPO 14 
-$40CA 14 
- ABS. 0123570 


ERRORS DETECTED: 


es sag ak gy 9 aaa cae cance nc uit cepen cl 
RUN-TIME RATIO: 398/30=13.2 
(55 PAGES) 


RUN-TIME: 
CORE USED: 


16 12 1 
28k 


84 


0 


164 


1120 
1507 
1459 


1589 


1176 


1558 


1313 
1240 
1381 
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SEQ 0048 


